CODEVS 1004四子连棋

【题目描述 Description】

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

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

输入描述 Input Description

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

输出描述 Output Description

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

样例输入 Sample Input

BWBO
WBWB
BWBW
WBWO

样例输出 Sample Output

5

【解题思路】

只能这样说，这是一个特别练DFS和BFS的题目，因为它的数据范围很小，怎么搜都不会超时，但是写深搜的孩子要注意，不能只从一个空格开始搜，而是在搜索完每一个节点之后都要进行一个双重循环寻找空格，因为空格有两个！有两个！

program FourChess;
const fx:array[1..4] of longint=(1,-1,0,0);
      fy:array[1..4] of longint=(0,0,1,-1);
var
f:array[1..4,1..4] of longint;
i,j:longint;
min:longint;
ch:char;


procedure dfs(x,y,num,co:longint);
var i,j,k,m,flag:longint;
begin
    flag:=0;
     if num>=min then exit;
     for i:=1 to 4 do
     begin
        if (f[i,1]=f[i,2]) and(f[i,2]=f[i,3]) and(f[i,3]=f[i,4])and((f[i,4]=1) or(f[i,4]=2)) then
        BEGIN
            m:=num;
            flag:=1;
        end;
        if (f[1,i]=f[2,i]) and(f[2,i]=f[3,i]) and(f[3,i]=f[4,i]) and((f[4,i]=1) or(f[4,i]=2))then
        begin
                m:=num;
                flag:=1;
        end;
     end;
     if (f[1,1]=f[2,2]) and(f[1,1]=f[3,3]) and (f[1,1]=f[4,4]) and((f[4,4]=1) or(f[4,4]=2))then
     begin
        m:=num;
        flag:=1;
     end;
     if (f[1,4]=f[2,3]) and(f[1,4]=f[3,2]) and(f[1,4]=f[4,1]) and((f[1,4]=1) or(f[1,4]=2))then
     begin
        m:=num;
        flag:=1;
     end;
     if (m<min) and (flag=1) then
     begin
        min:=m;
        exit;
     end;

                for k:=1 to 4 do
                if (x+fx[k]>0) and(x+fx[k]<5) and (y+fy[k]>0) and(y+fy[k]<5) and (f[x+fx[k],y+fy[k]]=co) then
                 begin

                    f[x,y]:=f[x+fx[k],y+fy[k]];
                    f[x+fx[k],y+fy[k]]:=0;
                    if co=1 then co:=2 else co:=1;
                    for i:=1 to 4 do
                        for j:=1 to 4 do
                        if f[i,j]=0 then
                    dfs(i,j,num+1,co);
                    if co=1 then co:=2 else co:=1;

                    f[x+fx[k],y+fy[k]]:=F[X,Y];
                    f[x,y]:=0;
                 end;


 end;

begin
    min:=maxlongint;
    for i:=1 to 4 do
    begin
        for j:=1 to 4 do
        begin
            read(ch);
            if ch='W' then f[i,j]:=1;
            if ch='B' then f[i,j]:=2;
        end;
        readln;
    end;
    for i:=1 to 4 do
        for j:=1 to 4 do
        if f[i,j]=0 then
        begin
            dfs(i,j,0,1);
            dfs(i,j,0,2);
        end;
     writeln(min);
end.

program FourChess;
const fx:array[1..4] of longint=(1,-1,0,0);
      fy:array[1..4] of longint=(0,0,1,-1);
var
f:array[1..4,1..4] of longint;
i,j:longint;
min:longint;
ch:char;


procedure dfs(x,y,num,co:longint);
var i,j,k,m,flag:longint;
begin
    flag:=0;
     if num>=min then exit;
     for i:=1 to 4 do
     begin
        if (f[i,1]=f[i,2]) and(f[i,2]=f[i,3]) and(f[i,3]=f[i,4])and((f[i,4]=1) or(f[i,4]=2)) then
        BEGIN
            m:=num;
            flag:=1;
        end;
        if (f[1,i]=f[2,i]) and(f[2,i]=f[3,i]) and(f[3,i]=f[4,i]) and((f[4,i]=1) or(f[4,i]=2))then
        begin
                m:=num;
                flag:=1;
        end;
     end;
     if (f[1,1]=f[2,2]) and(f[1,1]=f[3,3]) and (f[1,1]=f[4,4]) and((f[4,4]=1) or(f[4,4]=2))then
     begin
        m:=num;
        flag:=1;
     end;
     if (f[1,4]=f[2,3]) and(f[1,4]=f[3,2]) and(f[1,4]=f[4,1]) and((f[1,4]=1) or(f[1,4]=2))then
     begin
        m:=num;
        flag:=1;
     end;
     if (m<min) and (flag=1) then
     begin
        min:=m;
        exit;
     end;

                for k:=1 to 4 do
                if (x+fx[k]>0) and(x+fx[k]<5) and (y+fy[k]>0) and(y+fy[k]<5) and (f[x+fx[k],y+fy[k]]=co) then
                 begin

                    f[x,y]:=f[x+fx[k],y+fy[k]];
                    f[x+fx[k],y+fy[k]]:=0;
                    if co=1 then co:=2 else co:=1;
                    for i:=1 to 4 do
                        for j:=1 to 4 do
                        if f[i,j]=0 then
                    dfs(i,j,num+1,co);
                    if co=1 then co:=2 else co:=1;

                    f[x+fx[k],y+fy[k]]:=F[X,Y];
                    f[x,y]:=0;
                 end;


 end;

begin
    min:=20;
    for i:=1 to 4 do
    begin
        for j:=1 to 4 do
        begin
            read(ch);
            if ch='W' then f[i,j]:=1;
            if ch='B' then f[i,j]:=2;
        end;
        readln;
    end;
    for i:=1 to 4 do
        for j:=1 to 4 do
        if f[i,j]=0 then
        begin
            dfs(i,j,0,1);
            dfs(i,j,0,2);
        end;
     writeln(min);
end.