ant

最新推荐文章于 2023-10-12 14:55:31 发布

原创最新推荐文章于 2023-10-12 14:55:31 发布 · 458 阅读

0 ·

CC 4.0 BY-SA版权

题目描述

在二维平面坐标轴里面，有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.