ant

1508. 【普及模拟】蚂蚁 
(File IO): input:ant.in output:ant.out

时间限制:  1000 ms  空间限制:  131072 KB  具体限制  

Goto ProblemSet

题目描述

在二维平面坐标轴里面，有N只蚂蚁，第i只蚂蚁所在的点的坐标是(x i , y i ) ，坐标都是整数。所有蚂蚁的移动速度都相等，都是每秒移动1个单位。每只蚂蚁都有一个固定的移动方向，是如下4种方向之一，都是平行于坐标轴的：

l  N 表示向北（即朝上）， 则y坐标正方向。

l  E 表示向东（即朝右）， 则x坐标正方向。

l  S 表示向南（即向下）， 则y坐标负方向。

l  W 表示向西（即向左）， 则x坐标负方向。

当2只或多只蚂蚁在某个时刻碰（不一定是整数时刻）撞到一起，那么这些蚂蚁都会立即消失。例如蚂蚁A的初始位置是(0, 0)且方向是向东，蚂蚁B的初始位置是(1, 0)且方向是向西，那么0.5秒后，两只蚂蚁会在点（0.5, 0）处碰撞，两只蚂蚁瞬间都消失。当所有的碰撞结束后，还有多少只蚂蚁存在？不管蚂蚁最终移动到哪里，只要没有消失，都算是存在。

输入

第一行，一个整数N（1  ≤  N  ≤  50 ）。

第二行，一个长度是N的字符串，第i个字符表示第i只蚂蚁的移动方向。

接下来有N行，每行两个整数，表示蚂蚁的横坐标x和纵坐标y。

-1000  ≤  x,y  ≤  1000 。输入数据保证，一开始没有两只蚂蚁具有相同的位置。

对于50%的数据， 蚂蚁的坐标范围【-100，100】。

输出

  一个整数，表示当所有的碰撞结束后，存在的蚂蚁的数量。

样例输入

样例输出

数据范围限制

提示

var
        a,b,c,i,j,ans:longint;
        s:ansistring;
        v:array[1..50,1..2]of real;
        p,p1:array[1..50]of boolean;
begin
        assign(input,'ant.in');reset(input);
        assign(output,'ant.out');rewrite(output);
        readln(a);
        ans:=a;
        readln(s);
        for b:=1 to a do
                readln(v[b,1],v[b,2]);
        fillchar(p,sizeof(p),true);
        p1:=p;
        for b:=1 to 4000 do
        begin
                for c:=1 to a do
                begin
                        if p[c]=true then
                        begin
                                if s[c]='N' then
                                        v[c,2]:=v[c,2]+0.5;
                                if s[c]='S' then
                                        v[c,2]:=v[c,2]-0.5;
                                if s[c]='E' then
                                        v[c,1]:=v[c,1]+0.5;
                                if s[c]='W' then
                                        v[c,1]:=v[c,1]-0.5;
                        end;
                end;
                for i:=1 to a-1 do
                begin
                        for j:=i+1 to a do
                        begin
                                if (p[i]=true)and(p[j]=true) then
                                begin
                                        if (v[i,1]=v[j,1])and(v[i,2]=v[j,2]) then
                                        begin
                                                if p1[i]=true then dec(ans);
                                                if p1[j]=true then dec(ans);
                                                p1[i]:=false;
                                                p1[j]:=false;
                                        end;
                                end;
                        end;
                end;
                p:=p1;
        end;
        writeln(ans);
        close(input);
        close(output);
end.