题目描述 Description
OIBH被突来的洪水淹没了>.<还好OIBH总部有在某些重要的地方起一些围墙,用*号表示,而一个封闭的*号区域洪水是进不去的……现在给出OIBH的围墙建设图,问OIBH总部没被淹到的重要区域(由"0"表示)有多少。
输入:
第一行是两个数,x和y(x,y<=500)
第二行及以下是一个由*和0组成的x*y的图。
输出:
没被水淹没的OIBH总部的“0”的数量。
样例输入 Sample Input
样例输入1
4 5
00000
00*00
0*0*0
00*00
样例输入2
5 5
*****
*000*
*****
*0*0*
*****
样例输出 Sample Output
样例输出1
1
样例说明:只有中间一个被'*'包围的没有被淹没
样例输出2
5
文件输入输出设置
各个测试点限时1s
对于100%的数据n,m<=500
简单回溯,或者爆搜
提供2种代码:
1,使用爆搜,a[i,j]表示当前这个点,1为围墙,2为空地,0代表已被水淹没了。
代码如下:
var
n,m,i,j,ans,k:longint;
s:ansistring;
a:array[0..501,0..501] of longint;
begin
readln(n,m);
for i:=1 to n do
begin
readln(s);
for j:=1 to m do
begin
if s[j]='0' then a[i,j]:=2;
if s[j]='*' then a[i,j]:=1;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j]=2 then a[i,j]:=0 else if a[i,j]=1 then break;
for j:=m downto 1 do
if a[i,j]=2 then a[i,j]:=0 else if a[i,j]=1 then break;
end;
for i:=1 to m do
begin
for j:=1 to n do
if a[j,i]=2 then a[j,i]:=0 else if a[j,i]=1 then break;
for j:=n downto 1 do
if a[j,i]=2 then a[j,i]:=0 else if a[j,i]=1 then break;
end;
ans:=0;
for k:=1 to n do
for i:=1 to n do
for j:=1 to m do
if a[i,j]=0 then
begin
if a[i-1,j]<>1 then a[i-1,j]:=0;
if a[i+1,j]<>1 then a[i+1,j]:=0;
if a[i,j-1]<>1 then a[i,j-1]:=0;
if a[i,j+1]<>1 then a[i,j+1]:=0;
end;
for i:=1 to n do
for j:=1 to m do if a[i,j]=2 then inc(ans);
writeln(ans);
end.
2,第二种就是传统的回溯啦,从一个点开始扩散。
代码如下:
var
m,n,i,j,ans:integer; ch:char; s:longint;
a:array[0..501,0..501]of integer;
procedure try(x,y:integer);
begin
if a[x,y]=0 then exit;
a[x,y]:=0;
try(x,y+1);
try(x+1,y);
try(x,y-1);
try(x-1,y);
end;
begin
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
read(ch);
if ch='0' then a[i,j]:=1;
end;
readln;
end;
for i:=1 to m do begin try(i,1); try(i,n); end;
for j:=1 to n do begin try(1,j); try(m,j); end;
ans:=0;
for i:=2 to m-1 do
for j:=2 to n-1 do
if a[i,j]=1 then inc(ans);
writeln(ans);
end.