(ssl1456)骑士旅行

本文主要是介绍(ssl1456)骑士旅行，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Description


在一个n m 格子的棋盘上，有一只国际象棋的骑士在棋盘的左下角 (1;1)(如图1)，骑士只能根据象棋的规则进行移动，要么横向跳动一格纵向跳动两格，要么纵向跳动一格横向跳动两格。 例如， n=4，m=3 时，若骑士在格子(2;1) (如图2), 则骑士只能移入下面格子：(1;3),(3;3) 或 (4;2)；对于给定正整数n，m，I，j值 (m,n<=50,I<=n,j<=m) ，你要测算出从初始位置(1;1) 到格子(i;j)最少需要多少次移动。如果不可能到达目标位置，则输出"NEVER"。 




Input


输入文件的第一行为两个整数n与m，第二行为两个整数i与j。


Output


输出文件仅包含一个整数为初始位置(1;1) 到格子(i;j)最少移动次数。


Sample Input




5 3
1 2
Sample Output




3
Source

elba

var
 dx:array[1..8]of longint;
 dy:array[1..8]of longint;
 a:array[0..50+1,0..50+1] of longint;
 father:array[1..50*50]of longint;
 state:array[1..50*50,1..3] of longint;//3用于记录步数(父节点数)
 qx,qy,n,m,s:longint;
procedure init;
begin
 readln(n,m);
 read(qx,qy);
end;
procedure bfs;
var
 head,tail,k,x,y:longint;
begin
 head:=0;tail:=1;
 state[1,1]:=1;state[1,2]:=1;state[1,3]:=0;
 father[1]:=0;
 repeat
  inc(head);
  for k:=1 to 8 do
   begin
    x:=state[head,1]+dx[k];
    y:=state[head,2]+dy[k];
    if (x>=1) and (x<=n) and (y>=1) and (y<=m) and (a[x,y]=0) then
     begin
      inc(tail);
      father[tail]:=head;
      state[tail,1]:=x;
      state[tail,2]:=y;
      a[x,y]:=1;
      state[tail,3]:=state[head,3]+1;//统计步数
      if (state[tail,1]=qx) and (state[tail,2]=qy) then
       begin
        s:=state[head,3]+1;//统计到达终点的步数
        writeln(s);
        halt;
        tail:=0;//其实这条语句不必要，在执行它之前就当机了，不过出于是广搜，暂且保留它吧
       end;
     end;
   end;
 until head>=tail;
end;
begin
 dx[1]:=-1;dx[2]:=-2;dx[3]:=-2;dx[4]:=-1;dx[5]:=1;dx[6]:=2;dx[7]:=2;dx[8]:=1;//打表
 dy[1]:=2;dy[2]:=1;dy[3]:=-1;dy[4]:=-2;dy[5]:=-2;dy[6]:=-1;dy[7]:=1;dy[8]:=2;
 init;
 bfs;
 writeln('NEVER');
end.

这篇关于(ssl1456)骑士旅行的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---