Mzc和男家丁的游戏

题目背景

ｍｚｃ与ｄｊｎ的第二弹。

题目描述

ｍｚｃ家很有钱（开玩笑），他家有ｎ个男家丁（做过上一弹的都知道）。他把她们召集在了一起，他们决定玩捉迷藏。现在mzc要来寻找他的男家丁，大家一起来帮忙啊！

由于男家丁数目不多，再加上mzc大大的找人【laopo】水平很好，所以一次只需要找一个男家丁。

输入输出格式

输入格式：
第一行有两个数ｎ，m，表示有n行m列供男家丁躲藏，

之后n行m列的矩阵，‘m‘表示mzc，‘d’表示男家丁，‘#’表示不能走，‘.‘表示空地。

输出格式：
一行，若有解：一个数ｓｕｍ，表示找到男家丁的最短移动次数。

若无解：输出“No Way!”。

输入输出样例

输入样例#1：
5 6
.#..#.
….#.
d…..

.

m…..
输出样例#1：
12
说明

3= < M,n<=2000

由于mzc大大十分着急，所以他只能等待1S。
.
.
.
.
.
.

.

程序：

const
dx:array[1..4] of longint=(0,1,0,-1);
dy:array[1..4] of longint=(1,0,-1,0);
var
n,m,i,j,h,t,x,y,x1,y1,x2,y2:longint;
f:array[1..4000000] of longint;
a:array[1..2000,1..2000] of boolean;
ch:char;
b:array[1..4000000,1..2] of longint;
begin
    readln(n,m);
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            read(ch);
            if ch='#' then a[i,j]:=false else a[i,j]:=true;
            if ch='d' then
            begin
                x2:=i;
                y2:=j;
            end;
            if ch='m' then
            begin
                x1:=i;
                y1:=j;
            end;
        end;
        readln;
    end;
    h:=0;
    t:=1;
    f[t]:=0;
    b[t,1]:=x1;
    b[t,2]:=y1;
    while h<=t do
    begin
        inc(h);
        for i:=1 to 4 do
        begin
            x:=b[h,1]+dx[i];
            y:=b[h,2]+dy[i];
            if (x>0) and (y>0) and (x<=n) and (y<=m) and a[x,y] then
            begin
                a[x,y]:=false;
                inc(t);
                b[t,1]:=x;
                b[t,2]:=y;
                f[t]:=f[h]+1;
                if (x=x2) and (y=y2) then
                begin
                    writeln(f[t]);
                    halt;
                end;
            end;
        end;
    end;
    writeln('No Way!');
end.