8.7 WJ的逃离escape 2537

题目

当WJ醒来时，发现自己被困在一个地图的左上角，幸好WJ有张图，并了解到出口正是迷宫的右下角，至少有一条路径可以到达出口。
整个地图有些地方会有障碍（保证左上角右下角没有），WJ可以快速奔跑，只是需要拐弯时令人很不爽。为了保持心情愉悦，WJ想知道最少需要几次转弯。

题解

最少转弯问题，与迷宫问题类似，可用广搜解决
由于要求转弯次数最少，每次走都要一直走到不能走为止，经过的点都入队，可证先到的点一定最优

$$时间复杂度O(n^2)$$

代码

const
  dx:array[1..4]of integer=(1,-1,0,0);
  dy:array[1..4]of integer=(0,0,-1,1);
var
  r,c,i,j,k:longint;
  s:char;
  a:array[0..501,0..501,1..2]of longint;
  state:array[1..250000,1..2]of longint;

procedure bfs;
var
  i,j,k,head,tail,x,y,x1,y1:longint;
begin
  head:=0;tail:=1;state[1,1]:=1;state[1,2]:=1;a[1,1,1]:=2;
  repeat
    inc(head);
    x:=state[head,1];y:=state[head,2];
    for i:=1 to 4 do
      if (a[x+dx[i],y+dy[i],1]=1) then
        begin
          x1:=x+dx[i];y1:=y+dy[i];
          while a[x1,y1,1]=1 do
            begin
              inc(tail);
              state[tail,1]:=x1;
              state[tail,2]:=y1;
              a[x1,y1,1]:=2;
              a[x1,y1,2]:=a[state[head,1],state[head,2],2]+1;
              x1:=x1+dx[i];y1:=y1+dy[i];

            end;
        end;
  until head=tail;
end;

begin
  assign(input,'escape.in');
  assign(output,'escape.out');
  reset(input);
  rewrite(output);
  readln(r,c);
  for i:=1 to r do
    begin
      for j:=1 to c do
        begin
          read(s);
          if s='0' then a[i,j,1]:=1;
        end;
      readln;
    end;
  bfs;
  writeln(a[r,c,2]-1);
  close(input);close(output);
end.