囧。。我用byte装坐标，，n次都没发现错，，我是沙茶啊，，，

下面的同志啊，，对自己要狠一点呀，，开空间就开挖。1!!!!!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

so easy!!!!!!!

dfs 0ms ac

起点数组开500就4溢出1WA。。。

开2000 AC。。。囧

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

被水淹了~~~啊

又是把两个变量打反了，为noip积累rp!!!

用 并查集 做，为什么会0分呢？

最近rp忒低，，交程序老过不了。。

program p1294;

var a,v:array[0..501,0..501] of longint;

i,j,k,l,m,n,sbwen:longint;

t:char;

procedure dfs(x,y:longint);

var g,t,s:longint;

begin

if a[x,y]=0 then begin a[x,y]:=1;

if a[x,y+1]=0 then dfs(x,y+1);

if a[x,y-1]=0 then dfs(x,y-1);

if a[x+1,y]=0 then dfs(x+1,y);

if a[x-1,y]=0 then dfs(x-1,y); end;

end;

begin

readln(m,n);

for i:=1 to m do begin

for j:=1 to n do begin read(t);

if t='*' then

a:=1; end; readln;

end;

for i:=1 to m do begin a:=1;a:=1; end;

for i:=1 to n do begin a[0,i]:=1;a[m+1,i]:=1; end;

for i:=1 to m do begin dfs(i,1);dfs(i,n); end;

for i:=1 to n do begin dfs(1,i);dfs(m,i); end;

for i:=1 to m do

for j:=1 to n do

if a=0 then inc(sbwen);

writeln(sbwen);

end.

这个交了两遍。。第一次把m全部打成n。。。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

Floodfill 王牌方法

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

我的BFS。。。

无敌慢啊。

编译通过...

├ 测试数据 01：答案正确... 712ms

├ 测试数据 02：答案正确... 275ms

├ 测试数据 03：答案正确... 259ms

├ 测试数据 04：答案正确... 603ms

├ 测试数据 05：答案正确... 712ms

├ 测试数据 06：答案正确... 728ms

├ 测试数据 07：答案正确... 338ms

├ 测试数据 08：答案正确... 478ms

├ 测试数据 09：答案正确... 728ms

├ 测试数据 10：答案正确... 556ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：5389ms

还是 puppy呢 。

longint~integer真是很危险的东西~

汗，开integer交了n次才发现要用longint。。。囧

dfs 练手题

我广搜....AC好慢.....

怎么当时就没想到记忆化呢....

郁闷....

什么嘛！深搜就可以~我慌了

把能搜到的0全部弄成*

var

map :array[1..500,1..500]of integer;

i,j，ans,x,y :longint;

st :char;

procedure DFS(a,b:longint);

begin

if (ax)or(by) then exit;

if (map[a]=1)or(map[a]=2) then exit;

map[a]:=2;dec(ans);

DFS(a-1,b);DFS(a,b-1);DFS(a+1,b);DFS(a,b+1);

end;

begin

readln(x,y);

ans:=0;

for i:=1 to x do begin

for j:=1 to y do begin

read(st);

if st='0' then begin map[i][j]:=0; inc(ans); end;

if st='*' then map[i][j]:=1;

end;

readln;

end;

for i:=1 to x do DFS(i,1);

for i:=1 to y do DFS(x,i);

for i:=1 to x do DFS(i,y);

for i:=1 to y do DFS(1,i);

writeln(ans);

end.

深搜AC

var

a:array[0..501,0..501] of char;

f:array[0..501,0..501] of boolean;

i,j,x,y,ans:longint;

flag:boolean;

begin

readln(x,y);

for i:=1 to x do begin

for j:=1 to y do read(a);

readln();

end;

fillchar(f,sizeof(f),0);

for i:=1 to x do begin

f:=true;

f:=true;

end;

for i:=1 to y do begin

f[1,i]:=true;

f[x,i]:=true;

end;

flag:=true;

while flag do begin

flag:=false;

for i:=1 to x do

for j:=1 to y do

if (a'*')and(f) then begin

if not f then flag:=true;

if not f then flag:=true;

if not f then flag:=true;

if not f then flag:=true;

f:=true;

f:=true;

f:=true;

f:=true;

end;

for i:=x downto 1 do

for j:=y downto 1 do

if (a'*')and(f) then begin

if not f then flag:=true;

if not f then flag:=true;

if not f then flag:=true;

if not f then flag:=true;

f:=true;

f:=true;

f:=true;

f:=true;

end;

end;

for i:=x downto 1 do

for j:=y downto 1 do

if (a'*')and(f) then begin

f:=true;

f:=true;

f:=true;

f:=true;

end else if (a'*')and(not f) then inc(ans);

writeln(ans);

end.

非搜索。

还可以更短很多。。。

期待大家的完善。。。。

Floodfill!