简单双向广搜

题目大意：给你一个n*m的矩阵，0代表路，1代表墙，给出起点和中点，求最短距离。

双向广搜的一个显著特点即是知道初始状态和目标状态，虽然说这道题可能还体现不出双向广搜的优势……

具体方法可以望文生义，就是要加一个标记记录这个状态是从起点还是从终点转过来的。

program Neayo;
const
        inf='maze.in';
        ouf='maze.out';
        f:array[1..4,1..2]of longint=((0,-1),(-1,0),(1,0),(0,1));
var
        i,j,k,n,m:longint;
        qx,qy:array[0..4000000]of longint;
        a,q:array[0..2001,0..2001]of longint;
procedure init;
begin
     assign(input,inf);assign(output,ouf);
     reset(input);rewrite(output);
     readln(n,m);
     fillchar(a,sizeof(a),$ff);
     for i:=1 to n do
      begin
           for j:=1 to m do
           begin
                read(a[i,j]);
                if a[i,j]=1 then a[i,j]:=-1;
           end;
           readln;
      end;
     readln(qx[1],qy[1],qx[2],qy[2]);
     close(input);
end;
procedure go;
var top,closed,x,y,xx,yy:longint;
begin
     top:=0;closed:=2;
     q[qx[1],qy[1]]:=1;q[qx[2],qy[2]]:=0;
     a[qx[2],qy[2]]:=1;
     repeat
           inc(top);
           x:=qx[top];y:=qy[top];
           for i:=1 to 4 do
           if a[x+f[i,1],y+f[i,2]]<>-1 then
           begin
                xx:=x+f[i,1];yy:=y+f[i,2];
                if ((a[xx,yy]<>0)or((xx=qx[1])and(yy=qy[1])))and(q[xx,yy]<>q[x,y]) then
                begin
                     writeln(a[x,y]+a[xx,yy]);
                     exit;
                end;
                if (a[xx,yy]=0)and((xx<>qx[1])or(yy<>qy[1])) then
                begin
                     inc(closed);
                     qx[closed]:=xx;
                     qy[closed]:=yy;
                     a[xx,yy]:=a[x,y]+1;
                     q[xx,yy]:=q[x,y];
                end;
           end;

     until(top>=closed);
     writeln('No Answer!');
end;
begin
     init;
     go;
     close(output);
end.