bzoj 2464 jzoj 2182. 【中山市选2009】小明的游戏

Description

　　小明最近喜欢玩一个游戏。给定一个n * m的棋盘，上面有两种格子#和@。游戏的规则很简单：给定一个起始位置和一个目标位置，小明每一步能向上，下，左，右四个方向移动一格。如果移动到同一类型的格子，则费用是0，否则费用是1。请编程计算从起始位置移动到目标位置的最小花费。

Input

　　输入文件有多组数据。
　　输入第一行包含两个整数n，m，分别表示棋盘的行数和列数。
　　输入接下来的n行，每一行有m个格子（使用#或者@表示）。
　　输入接下来一行有四个整数x1, y1, x2, y2，分别为起始位置和目标位置。
　　当输入n，m均为0时，表示输入结束。

Output

　　对于每组数据，输出从起始位置到目标位置的最小花费。每一组数据独占一行。

Sample Input

2 2
@#
#@
0 0 1 1
2 2
@@
@#
0 1 1 0
0 0

Sample Output

2
0

Data Constraint

Hint

【数据规模】
　　对于20%的数据满足：1 < = n, m <= 10。
　　对于40%的数据满足：1 < = n, m <= 300。
　　对于100%的数据满足：1 < = n, m <= 500。

分析：我们从起点开始bfs，每到一个点就把在它周围的一样的都更新了，用一个dfs跑一下，那么到达目标点时一定是最短路。复杂度O(nm)

代码：

const
 maxn=501;
 maxv=501*501;
 dx:Array [1..4] of longint=(0,1,-1,0);
 dy:array [1..4] of longint=(1,0,0,-1);

type
 node=record
  x,y:longint;
 end;

var
 n,m,i,h,t,x1,y1,x2,y2:longint;
 a:array [1..maxn,1..maxn] of longint;
 map:array [1..maxn,1..maxn] of longint;
 v:array [1..maxn,1..maxn] of boolean;
 list:array [1..maxv*2] of node;

procedure init;
 var i,j:longint;
     ch:char;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     read(ch);
     if ch='#' then map[i,j]:=0
               else map[i,j]:=1;
     v[i,j]:=false;
     a[i,j]:=-1;
    end;
   readln;
  end;
 readln(x1,y1,x2,y2);
 inc(x1); inc(y1); inc(x2); inc(y2);
end;

procedure dfs(x,y:longint);
 var i:longint;
begin
 for i:=1 to 4 do
  begin
   if (dx[i]+x>=1) and (dx[i]+x<=n) and (dy[i]+y>=1) and (dy[i]+y<=m) then
    if (v[dx[i]+x,dy[i]+y]=false) and (map[x,y]=map[dx[i]+x,dy[i]+y]) then
     begin
      v[dx[i]+x,dy[i]+y]:=true;
      a[dx[i]+x,dy[i]+y]:=a[x,y];
      inc(t);
      list[t].x:=dx[i]+x;
      list[t].y:=dy[i]+y;
      dfs(dx[i]+x,dy[i]+y);
     end;
  end;
end;

procedure bfs;
 var i,x,y:longint;
begin
 fillchar(list,sizeof(list),0);
 h:=0; t:=1;
 list[t].x:=x1;
 list[t].y:=y1;
 v[x1,y1]:=true;
 a[x1,y1]:=0;
 dfs(x1,y1);
 if a[x2,y2]<>-1 then
 begin
  writeln(a[x2,y2]);
  exit;
 end;
 repeat
  h:=h+1;
  x:=list[h].x;
  y:=list[h].y;
  for i:=1 to 4 do
   if (dx[i]+x>=1) and (dx[i]+x<=n) and (dy[i]+y>=1) and (dy[i]+y<=m) then
    if v[dx[i]+x,dy[i]+y]=false then
     begin
      v[dx[i]+x,dy[i]+y]:=true;
      a[dx[i]+x,dy[i]+y]:=a[x,y]+1;
      dfs(dx[i]+x,dy[i]+y);
      if a[x2,y2]<>-1 then
       begin
        writeln(a[x2,y2]);
        exit;
       end;
      t:=t+1;
      list[t].x:=dx[i]+x;
      list[t].y:=dy[i]+y;
     end;
 until h>=t;
end;

begin
 while 1=1 do
  begin
   readln(n,m);
   if n+m=0 then exit;
   init;
   bfs;
  end;
end.