记录编号	43976	评测结果	AAAAAAEA
题目名称	947.劣质的草	最终得分	87
用户昵称	o_o	是否通过	未通过
代码语言	Pascal	运行时间	0.143 s
提交时间	2012-10-15 19:01:59	内存使用	68.88 MiB

    var
    a,b,c,d,i,j,m,n,o:longint;
    k,l:array[0..3000,0..3000]of longint;
    lx,ly:array[1..2000]of integer;
    procedure dfs(y,x:longint);
    var
    e,r,t,z:longint;
    begin
    for z:=1 to 8 do
    if (x+lx[z]<b+1)and(x+lx[z]>0)and(y+ly[z]>0)and(y+ly[z]<a+1) then
    if k[y+ly[z],x+lx[z]]<>0 then
    if l[y+ly[z],x+lx[z]]=0 then
    begin
    l[y+ly[z],x+lx[z]]:=m;
    dfs(y+ly[z],x+lx[z]);
    end;
    end;
    begin
    assign(input,'badgras.in');
    assign(output,'badgras.out');
    reset(input);
    rewrite(output);
    lx[1]:=1;
    lx[2]:=-1;
    lx[3]:=0;
    lx[4]:=0;
    lx[5]:=1;
    lx[6]:=-1;
    lx[7]:=1;
    lx[8]:=-1;
    ly[1]:=0;
    ly[2]:=0;
    ly[3]:=-1;
    ly[4]:=1;
    ly[5]:=1;
    ly[6]:=-1;
    ly[7]:=-1;
    ly[8]:=1;
    read(a,b);
    for i:=1 to a do
    begin
    for j:=1 to b do
    read(k[i,j]);
    readln;
    end;
    for i:=1 to a do
    for j:=1 to b do
    if (k[i,j]<>0)and(l[i,j]=0) then
    begin
    m:=m+1;
    l[i,j]:=m;
    dfs(i,j);
    end;
    writeln(m);
    close(input);
    close(output);
    end.