题目描述
在二维平面坐标轴里面，有N只蚂蚁，第i只蚂蚁所在的点的坐标是(xi, yi)，坐标都是整数。所有蚂蚁的移动速度都相等，都是每秒移动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】。
输出
一个整数，表示当所有的碰撞结束后，存在的蚂蚁的数量。
输入样例
4
NWNE
0 0
10 10
20 20
30 30
4
NEWS
-10 0
0 -10
0 10
10 0
4
EWSS
0 0
9 0
0 4
0 5
9
EENWWSWSE
-1 0
1 0
0 0
-1 -1
1 -1
0 1
0 -1
-1 1
1 1
5
SWNSE
-2 -1
-3 -1
-2 -3
1 3
-3 -2
9
ESEWNNEWW
-1 -1
-1 0
-1 1
0 -1
0 0
0 1
1 -1
1 0
1 1
4
EWEN
2 2
10 2
0 2
0 0
3
NEN
2 0
0 2
1 1
2
SW
-1000 1000
1000 -1000
输出样例
2
0
2
5
2
4
2
1
0
题解：
纯模拟，枚举时间将坐标加或减0.5，再判断有没有蚂蚁碰撞。
代码如下：
var
n,i,j,ans,k:longint;
s:string;
x,y:array[1..50] of real;
f,bool:array[1..50] of boolean;
begin
assign(input,'ant.in');
assign(output,'ant.out');
reset(input);
rewrite(output);
readln(n);
readln(s);
fillchar(f,sizeof(f),false);
for i:=1 to n do readln(x[i],y[i]);
for i:=1 to 4000 do
begin
fillchar(bool,sizeof(bool),false);
for j:=1 to n do
case s[j] of
'N':y[j]:=y[j]+0.5;
'S':y[j]:=y[j]-0.5;
'W':x[j]:=x[j]-0.5;
'E':x[j]:=x[j]+0.5;
end;
for j:=1 to n-1 do
if not(f[j]) then
for k:=j+1 to n do
if not(f[k]) then
if (x[j]=x[k]) and (y[j]=y[k]) then begin bool[j]:=true; bool[k]:=true; end;
for j:=1 to n do
if bool[j] and not(f[j]) then
begin
f[j]:=true;
inc(ans);
end;
end;
write(n-ans);
close(input);
close(output);
end.