洪水_纪中1235_bfs

Description

一天， 一个画家在森林里写生，突然爆发了山洪，他需要尽快返回住所中，那里是安
全的。
森林的地图由R行C列组成，空白区域用点“.”表示，洪水的区域用“*”表示，而
岩石用“X”表示，另画家的住所用“D”表示，画家用“S”表示。
有以下几点需要说明：
1、 每一分钟画家能向四个方向移动一格（上、下、左、右）
2、 每一分钟洪水能蔓延到四个方向的相邻格子（空白区域）
3、 洪水和画家都不能通过岩石区域
4、 画家不能通过洪水区域（同时也不行，即画家不能移到某个格子，该格子在画家达到的同时被洪水蔓延到了，这也是不允许的）
5、 洪水蔓不到画家的住所。
给你森林的地图，编写程序输出最少需要花费多长时间才能从开始的位置赶回家中。

Input

输入第一行包含两个整数R和C(R,C<=50)。
接下来R行每行包含C个字符(“.”、“*”、“X”、“D”或“S”)。地图保证只有一个“D”和一个“S”。

Output

输出画家最快安全到达住所所需的时间，如果画家不可能安全回家则输出“KAKTUS”。

Sample Input

输入1：

3 3

D.*

…

.S.

输入2：

3 3

D.*

…

..S

输入3：

3 6

D…*.

.X.X..

….S.

Sample Output

输出1：

3

输出2：

KAKTUS

输出3：

6

题解：

昨天晚上的专题就是暴力搜索，于是乎就想到了搜索
记录洪水和画家的位置分别bfs两次，记录当前点的深度dep[i,j]
若同一位置，画家的深度>=洪水的深度就KAKTUS，否则输出到达房子时的深度

这里是槽点：

• 这尼玛不止一个洪水的源头啊！！！
• 这尼玛可能会有没有洪水的情况啊啊啊！！！

代码/pas:

type
  axis=record
    x,y,w:longint;
  end;
  state=record
    head,tail:longint;
    s:array[1..3000]of axis;
  end;
const
  dx:array[1..4]of integer=(-1,1,0,0);
  dy:array[1..4]of integer=(0,0,-1,1);
var
  n,m:longint;
  map,t,g:array[-1..100,-1..100]of longint;
  sop,fop:axis;
  a,b:state;
procedure bfs;
var
  i,x,y:longint;
begin
  t[fop.x,fop.y]:=maxlongint;
  repeat
    inc(b.head);
    for i:=1 to 4 do
    begin
      x:=b.s[b.head].x+dx[i];
      y:=b.s[b.head].y+dy[i];
      if (map[x,y]=1)and(t[x,y]=0) then
      begin
        inc(b.tail);
        b.s[b.tail].x:=x;
        b.s[b.tail].y:=y;
        b.s[b.tail].w:=b.s[b.head].w+1;
        t[x,y]:=b.s[b.tail].w;
      end;
    end;
  until b.head>=b.tail;
  fillchar(a,sizeof(a),0);
  a.tail:=1;
  a.s[1]:=sop;
  repeat;
    inc(a.head);
    if map[a.s[a.head].x,a.s[a.head].y]=2 then
    begin
      writeln(a.s[a.head].w);
      halt;
    end;
    for i:=1 to 4 do
    begin
      x:=a.s[a.head].x+dx[i];
      y:=a.s[a.head].y+dy[i];
      if (map[x,y]in[1,2])and((t[x,y]>a.s[a.head].w+1)or(t[x,y]=0))and(g[x,y]=0) then
      begin
        inc(a.tail);
        a.s[a.tail].x:=x;
        a.s[a.tail].y:=y;
        a.s[a.tail].w:=a.s[a.head].w+1;
        g[x,y]:=a.s[a.tail].w;
      end;
    end;
  until a.head>=a.tail;
end;
procedure init;
var
  i,j:longint;
  c:char;
begin
  fillchar(map,sizeof(map),0);
  readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(c);
      if c='X' then map[i,j]:=0;
      if c='.' then map[i,j]:=1;
      if c='D' then map[i,j]:=2;
      if c='S' then
      begin
        map[i,j]:=3;
        sop.x:=i;
        sop.y:=j;
      end;
      if c='*' then
      begin
        map[i,j]:=4;
        inc(b.tail);
        b.s[b.tail].x:=i;
        b.s[b.tail].y:=j;
      end;
    end;
    readln;
  end;
end;
begin
  init;
  bfs;
  writeln('KAKTUS');
end.