关于上次抓猫题目100分解法（pascal)

var
        n,m,i,j,ans:longint;
        a:array[0..1000,0..1000] of char;
        b:array[0..1000,0..1000] of boolean;
procedure dg(x,y:longint);
var
        ch:char;
begin
        ch:=a[x,y];
        a[x,y]:=' ';
        if b[x,y] then
        begin
                inc(ans);
                exit;
        end;
        b[x,y]:=true;
        case ch of
               'E':dg(x,y+1);
               'W':dg(x,y-1);
               'S':dg(x+1,y);
                'N':dg(x-1,y);
        end;
        b[x,y]:=false;
end;
begin
        readln(n,m);
        ans:=0;
        for i:=1 to n do
        begin
                for j:=1 to m do
                        read(a[i,j]);
                readln;
        end;
        for i:=1 to n do
        begin
                for j:=1 to m do
                        if (a[i,j]='E')or(a[i,j]='W')or(a[i,j]='S')or(a[i,j]='N') then dg(i,j);
        end;
        writeln(ans);
end.