武士风度的牛（tyvj1074）

 

武士风度的牛

背景 Background

农民John有很多牛，他想交易其中一头被Don称为The Knight的牛。这头牛有一个独一无二的超能力，在农场里像Knight一样地跳（就是我们熟悉的象棋中马的走法）。虽然这头神奇的牛不能跳到树上和石头上，但是它可以在牧场上随意跳，我们把牧场用一个x，y的坐标图来表示。

描述 Description

这头神奇的牛像其它牛一样喜欢吃草，给你一张地图，上面标注了The Knight的开始位置，树、灌木、石头以及其它障碍的位置，除此之外还有一捆草。现在你的任务是，确定The Knight要想吃到草，至少需要跳多少次。The Knight的位置用'K'来标记，障碍的位置用'*'来标记，草的位置用'H'来标记。

这里有一个地图的例子：
　　　　　　 11 | . . . . . . . . . .
　　　　　　 10 | . . . . * . . . . .
　　　　　　  9 | . . . . . . . . . .
　　　　　　  8 | . . . * . * . . . .
　　　　　　  7 | . . . . . . . * . .
　　　　　　  6 | . . * . . * . . . H
　　　　　　  5 | * . . . . . . . . .
　　　　　　  4 | . . . * . . . * . .
　　　　　　  3 | . K . . . . . . . .
　　　　　　  2 | . . . * . . . . . *
　　　　　　  1 | . . * . . . . * . .
　　　　　　  0 ----------------------
　　　　　　　　　　　　　　　　　　1
　　　　　　　　0 1 2 3 4 5 6 7 8 9 0

The Knight 可以按照下图中的A,B,C,D...这条路径用5次跳到草的地方（有可能其它路线的长度也是5）：
　　　　　　 11 | . . . . . . . . . .
　　　　　　 10 | . . . . * . . . . .
　　　　　　  9 | . . . . . . . . . .
　　　　　　  8 | . . . * . * . . . .
　　　　　　  7 | . . . . . . . * . .
　　　　　　  6 | . . * . . * . . . F<
　　　　　　  5 | * . B . . . . . . .
　　　　　　  4 | . . . * C . . * E .
　　　　　　  3 | .>A . . . . D . . .
　　　　　　  2 | . . . * . . . . . *
　　　　　　  1 | . . * . . . . * . .
　　　　　　  0 ----------------------
　　　　　　　　　　　　　　　　　　1
　　　　　　　　0 1 2 3 4 5 6 7 8 9 0 

输入格式 Input Format

第一行： 两个数，表示农场的列数(<=150)和行数(<=150)

第二行..结尾: 如题目描述的图。

输出格式 Output Format

一个数，表示跳跃的最小次数。

样例输入 Sample Input

10 11
..........
....*.....
..........
...*.*....
.......*..
..*..*...H
*.........
...*...*..
.K........
...*.....*
..*....*..
样例输出 Sample Output

5
===================

宽搜

注意一个问题，行列是否相反.

===================

const  dx:array[1..8]of longint=(1,2, 2, 1,-1,-2,-2,-1);  dy:array[1..8]of longint=(2,1,-1,-2,-2,-1, 1, 2);var  map:array[-2..153,-2..153]of char;    //开始在这里定义地图时没注意，最后下标越界了...  m,n:longint;  x1,y1,x2,y2:longint;  h:array[0..22500,1..3]of longint;procedure init;begin  assign(input,'p1074.in');  assign(output,'p1074.out');  reset(input); rewrite(output);end;procedure terminate;begin  close(input); close(output); halt;end;procedure bfs;var  l,r:longint;  i:longint;  x_,y_:longint;begin  l:=0; r:=1;  h[1,1]:=x1; h[1,2]:=y1; h[1,3]:=0;  repeat    inc(l);  // l:=l mod 22500;    for i:=1 to 8 do      begin        x_:=h[l,1]+dx[i];        y_:=h[l,2]+dy[i];        if map[x_,y_]<>'*' then          begin            if (x_=x2) and (y_=y2) then              begin                writeln(h[l,3]+1);                terminate;              end;            map[x_,y_]:='*';            inc(r);   //         r:=r mod 22500;            h[r,1]:=x_; h[r,2]:=y_; h[r,3]:=h[l,3]+1;          end;      end;  until l>=r;end;procedure main;var  i,j:longint;begin  readln(n,m);  for i:=-2 to 153 do    for j:=-2 to 153 do      map[i,j]:='*';  for i:=1 to m do    begin      for j:=1 to n do        begin          read(map[i,j]);          if map[i,j]='K' then            begin              x1:=i; y1:=j;            end;          if map[i,j]='H' then            begin              x2:=i; y2:=j;            end;        end;      readln;    end;  {for i:=1 to m do    begin      for j:=1 to n do        write(map[i,j]);      writeln;    end;}  bfs;end;begin  init;  main;  terminate;end.