洛谷 P1363 幻想迷宫

题目描述

背景 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.