jzoj 1577. 【普及模拟】抓猫 解题报告

1577. 【普及模拟】抓猫 
(File IO): input:d.in output:d.out

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

Goto ProblemSet

题目描述

流浪猫布满城市的每一个角落，非常影响市容市貌，作为城市聘请的抓猫者，你有一种捕捉器，一定可以捕捉到所有走到里面的猫，更加幸运的是你有一个非常厉害的动物心理学家，他可以预测猫在不同位置的行走方向(共有东、西、南、北四种情况)

为了节约经费，问你最少需要多少个捕捉器才能把所有的猫都抓住。

输入

输入第一行包含两个整数N和M(1<=N,M<=1000),表示城市被划分成N×M的网格。接下来N行，每行包含M个字符“E”、“W”、“S”、“N”代表东、西、南、北4个方向，表示当猫在该位置的行走方向，保证猫不会走出城市区域。

输出

输出一个整数表示最少需要的捕捉器数。

样例输入

3 4

SWWW

SEWN

EEEN

样例输出

2

数据范围限制

提示

【数据说明】

40% 1<=N,M<=4

100% 1<=N,M<=1000

代码如下：一段不是搜索胜似搜索的代码。。

var
 a:array[0..1000,0..1000]of char;
 b:array[0..1000,0..1000]of longint;
 f:array[0..1000,0..1000]of boolean;
 n,m,i,j,k,d,dd,ans:longint;
begin
 assign(input,'d.in');reset(input);
 assign(output,'d.out');rewrite(output);
 readln(n,m);
 for i:=1 to n do
 begin
  for j:=1 to m do
   read(a[i,j]);
   readln;
  end;
  fillchar(b,sizeof(b),$7);
 k:=1;
 for i:=1 to n do
  for j:=1 to m do
    if not f[i,j] then
     begin
       d:=i; dd:=j;
        while not f[d,dd] do
         begin
          f[d,dd]:=true;
          if a[d,dd]='W' then begin b[d,dd]:=k; dec(dd); continue; end;
          if a[d,dd]='E' then begin b[d,dd]:=k; inc(dd); continue; end;
          if a[d,dd]='S' then begin b[d,dd]:=k; inc(d); continue; end;
          if a[d,dd]='N' then begin b[d,dd]:=k; dec(d); continue; end;
         end;
        if b[d,dd]>=k then inc(ans);
        inc(k);
     end;
  write(ans);
  close(input); close(output);
end.