题目描述
背景 Background
(喵星人LHX和WD同心协力击退了汪星人的入侵,不幸的是,汪星人撤退之前给它们制造了一片幻象迷宫。)
WD:呜呜,肿么办啊……
LHX:momo…我们一定能走出去的!
WD:嗯,+U+U!
描述 Description
幻象迷宫可以认为是无限大的,不过它由若干个N*M的矩阵重复组成。矩阵中有的地方是道路,用’.’表示;有的地方是墙,用’#’表示。LHX和WD所在的位置用’S’表示。也就是对于迷宫中的一个点(x,y),如果(x mod n,y mod m)是’.’或者’S’,那么这个地方是道路;如果(x mod n,y mod m)是’#’,那么这个地方是墙。LHX和WD可以向上下左右四个方向移动,当然不能移动到墙上。
请你告诉LHX和WD,它们能否走出幻象迷宫(如果它们能走到距离起点无限远处,就认为能走出去)。如果不能的话,LHX就只好启动城堡的毁灭程序了……当然不到万不得已,他不想这么做。。。
输入输出格式
输入格式:
输入格式 InputFormat
输入包含多组数据,以EOF结尾。
每组数据的第一行是两个整数N、M。
接下来是一个N*M的字符矩阵,表示迷宫里(0,0)到(n-1,m-1)这个矩阵单元。
输出格式:
输出格式 OutputFormat
对于每组数据,输出一个字符串,Yes或者No。
输入输出样例
输入样例#1:
5 4 ##.# ##S# #..# #.## #..#$
5 4 ##.# ##S# #..# ..#. #.##
输出样例#1:
Yes
No
说明
数据范围和注释 Hint
对于30%的数据,N,M<=20
对于50%的数据,N.M<=100.
对于100%的数据,N,M<=1500,每个测试点不超过10组数据.
分析:纯暴力,注意的地方有很多。
数据:不一定全是洛谷的数据
代码:
var
a:array [0..3001,0..3001] of 0..2;
t,n,m,sx,sy:longint;
b:boolean;
procedure init;
var i,j:longint;
s:char;
begin
readln(n,m);
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
begin
read(s);
case s of
'#':a[i,j]:=1;
'.':a[i,j]:=0;
'S':begin sx:=i; sy:=j; end;
end;
end;
readln;
end;
for i:=0 to n-1 do
for j:=m to 2*m-1 do
a[i,j]:=a[i,j-m];
for i:=n to 2*n-1 do
for j:=0 to 2*m-1 do
a[i,j]:=a[i-n,j];
b:=false;
end;
procedure dfs(x,y:longint);
begin
if b then exit;
if(x>=n) or (y>=m) then
begin
if (a[x mod n,y mod m]=2) or (a[x mod n+n,y mod m]=2) or
(a[x mod n,y mod m+m]=2) or (a[x mod n+n,y mod m+m]=2) then
begin
b:=true;
exit;
end;
end;
a[x,y]:=2;
if(a[(x+1+2*n) mod (2*n),y]=0) then dfs((x+1+2*n) mod (2*n),y);
if(a[(x-1+2*n) mod (2*n),y]=0) then dfs((x-1+2*n) mod (2*n),y);
if(a[x,(y-1+2*m) mod (2*m)]=0) then dfs(x,(y-1+2*m) mod (2*m));
if(a[x,(y+1+2*m) mod (2*m)]=0) then dfs(x,(y+1+2*m) mod (2*m));
end;
begin
while not eof do
begin
fillchar(a,sizeof(a),0);
init;
if (n=0) or (m=0) then break;
dfs(sx,sy);
if b then writeln('Yes')
else writeln('No');
end;
end.