wikioi1004 四子连棋

题目描述 Description

在一个4*4的棋盘上摆放了14颗棋子，其中有7颗白色棋子，7颗黑色棋子，有两个空白地带，任何一颗黑白棋子都可以向上下左右四个方向移动到相邻的空格，这叫行棋一步，黑白双方交替走棋，任意一方可以先走，如果某个时刻使得任意一种颜色的棋子形成四个一线（包括斜线），这样的状态为目标棋局。

●	○	●
○	●	○	●
●	○	●	○
○	●	○

 

输入描述 Input Description

从文件中读入一个4*4的初始棋局，黑棋子用B表示，白棋子用W表示，空格地带用O表示。

输出描述 Output Description

用最少的步数移动到目标棋局的步数。

样例输入 Sample Input

BWBO
WBWB
BWBW
WBWO

样例输出 Sample Output

5

题解：还是爆搜，本题应该用广搜比较好，我写的程序是深搜

const
  dx:array[1..4,1..2]of shortint=((1,0),(0,1),(0,-1),(-1,0));
var
  a:array[1..4,1..4]of char;
  i,j:shortint;
  ans,n:longint;

function check:boolean;
var
  i:shortint;
begin
  for i:=1 to 4 do
  begin
    if(a[i,1]=a[i,2])and(a[i,1]=a[i,3])and(a[i,1]=a[i,4])then exit(true);
    if(a[1,i]=a[2,i])and(a[1,i]=a[3,i])and(a[1,i]=a[4,i])then exit(true);
  end;
  if(a[1,1]=a[2,2])and(a[1,1]=a[3,3])and(a[1,1]=a[4,4])then exit(true);
  if(a[4,1]=a[3,2])and(a[4,1]=a[2,3])and(a[4,1]=a[1,4])then exit(true);
  exit(false);
end;

procedure dfs(step,dir,x1,y1:integer;last:char);
var
  i,j,k,x,y:shortint;
begin
  if step>=ans then exit;
  if check then ans:=step
  else
  begin
    if step<>0 then
    begin
      a[x1,y1]:=last;
      a[x1+dx[dir,1],y1+dx[dir,2]]:='O';
    end;
    for i:=1 to 4 do
      for j:=1 to 4 do
        if a[i,j]='O'then
          for k:=1 to 4 do
          begin
            x:=i+dx[k,1];
            y:=j+dx[k,2];
            if(x<5)and(x>0)and(y<5)and(y>0)and(a[x,y]<>last) then
               dfs(step+1,k,i,j,a[x,y]);
          end;
    if step<>0 then
    begin
      a[x1,y1]:='O';
      a[x1+dx[dir,1],y1+dx[dir,2]]:=last;
    end;
  end;
end;

begin
  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
      read(a[i,j]);
    readln;
  end;
  ans:=100;
  dfs(0,0,0,0,'0');
  writeln(ans-1);
end.