【问题描述】
在一个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-dep1 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.