jzoj1498 抓猫

Description

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

Input

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

Output

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

Sample Input

3 4
SWWW
SEWN
EEEN

Sample Output

2

【数据说明】

40% 1<=N,M<=4
100% 1<=N,M<=1000

算法讨论

根据题目可以看出在一个环上需一个笼子，用并差集把相同的点放入同一个集合，最后统计有多少个不同的祖先。

var
  n,m,i,j,p,ans:longint;
  ch:array[1..1000] of ansistring;
  fa:array[1..2000000] of longint;
  f:array[1..1200,1..1200] of longint;
  t:array[1..2000000] of boolean;
function find(x:longint):longint;
begin
  if fa[x]=x then
    exit(x);
  exit(find(fa[x]));
end;
procedure lian(x,y:longint);
var
  a,b:longint;
begin
  a:=find(x);
  b:=find(y);
  if a<>b then
    fa[a]:=b;
end;
var
  x:longint;
begin
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do
      f[i,j]:=(i-1)*m+j;
  p:=n*m;
  for i:=1 to p do
    fa[i]:=i;
  for i:=1 to n do
    readln(ch[i]);
  for i:=1 to n do
    for j:=1 to m do
      begin
        if ch[i,j]='E' then
          lian(f[i,j],f[i,j+1]);
        if ch[i,j]='W' then
          lian(f[i,j],f[i,j-1]);
        if ch[i,j]='S' then
          lian(f[i,j],f[i+1,j]);
        if ch[i,j]='N' then
          lian(f[i,j],f[i-1,j]);
      end;

  for i:=1 to p do
    begin
      x:=find(fa[i]);
      if not t[x] then
        begin
          inc(ans);
          t[x]:=true;
        end;
    end;
  writeln(ans);
end.