洪水_纪中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.