骑士精神（BZOJ1085） 题解

【问题描述】

    在一个5×5的棋盘上有12个白色的骑士和12个黑色的骑士， 且有一个空位。在任何时候一个骑士都能按照骑士的走法（它可以走到和它横坐标相差为1，纵坐标相差为2或者横坐标相差为2，纵坐标相差为1的格子）移动到空位上。 给定一个初始的棋盘，怎样才能经过移动变成如下目标棋盘： 为了体现出骑士精神，他们必须以最少的步数完成任务。

【样例输入】

    2
    10110
    01*11
    10111
    01001
    00000
    01011
    110*1
    01110
    01010
    00100

【样例输出】

    7
    -1

【解题思路】

    这题为SCOI2005的题，首先看到这一题，以为是广搜，结果发现搜索树太大了，用队列会炸，于是想到了迭代加深。

    把答案作为加深的对象，不断的对答案+1，然后我们可以利用估价函数减小搜索的范围，其实就打一个深搜出来就行了。

【代码实现】

 

 1 const en:array[1..5] of string=('11111','01111','00*11','00001','00000');

 2       dx:array[1..8] of longint=(2,-2,1,1,-1,-1,2,-2);

 3       dy:array[1..8] of longint=(1,1,-2,2,-2,2,-1,-1);

 4 var a:array [1..5] of string[5];

 5     h,r,i,n,j,w,ans,mini,x,y:longint;

 6 procedure swap(var x,y:char);

 7 var ch:char;

 8 begin

 9  ch:=x;

10  x:=y;

11  y:=ch;

12 end;

13 procedure dfs(x,y,dep,last:longint);

14 var i,j,d,xx,yy:longint;

15 begin

16  d:=0;

17  if mini<>-1 then

18   exit;

19  for i:=1 to 5 do

20   for j:=1 to 5 do

21    if a[i,j]<>en[i,j] then

22     inc(d);

23  if d=0 then

24   begin

25    mini:=dep;

26    exit;

27   end;

28  if ans-dep<d-1 then

29   exit;

30  for i:=1 to 8 do

31   begin

32    if mini<>-1 then

33     break;

34    if i=9-last then

35     continue;

36    xx:=x+dx[i];

37    yy:=y+dy[i];

38    if (xx in[1..5])and(yy in[1..5]) then

39     begin

40      swap(a[x,y],a[xx,yy]);

41      dfs(xx,yy,dep+1,i);

42      swap(a[x,y],a[xx,yy]);

43     end;

44   end;

45 end;

46 begin

47  readln(w);

48  while w>0 do

49   begin

50    a[1]:='';a[2]:='';a[3]:='';a[4]:='';a[5]:='';

51    dec(w);

52    for i:=1 to 5 do

53     begin

54      readln(a[i]);

55      for j:=1 to 5 do

56       if a[i,j]='*' then

57        begin

58         x:=i;

59         y:=j;

60        end;

61     end;

62    mini:=-1;

63    for ans:=0 to 15 do

64     begin

65      dfs(x,y,0,-1);

66      if mini<>-1 then

67       break;

68     end;

69    if mini=-1 then

70     writeln(mini)

71    else

72     writeln(ans);

73   end;

74 end.