3．Mayan 游戏
(mayan.cpp/c/pas)
【问题描述】
Mayan puzzle 是最近流行起来的一个游戏。游戏界面是一个7 行5 列的棋盘，上面堆放
着一些方块，方块不能悬空堆放，即方块必须放在最下面一行，或者放在其他方块之上。游
戏通关是指在规定的步数内消除所有的方块，消除方块的规则如下：
1、每步移动可以且仅可以沿横向（即向左或向右）拖动某一方块一格：当拖动这一方
块时，如果拖动后到达的位置（以下称目标位置）也有方块，那么这两个方块将交换位置（参
见输入输出样例说明中的图6 到图7）；如果目标位置上没有方块，那么被拖动的方块将从
原来的竖列中抽出，并从目标位置上掉落（直到不悬空，参见下面图1 和图2）；
2、任一时刻，如果在一横行或者竖列上有连续三个或者三个以上相同颜色的方块，则
它们将立即被消除（参见图1 到图3）。
注意：
a) 如果同时有多组方块满足消除条件，几组方块会同时被消除（例如下面图4，三个颜
色为1 的方块和三个颜色为2 的方块会同时被消除，最后剩下一个颜色为2 的方块）。
b) 当出现行和列都满足消除条件且行列共享某个方块时，行和列上满足消除条件的所
有方块会被同时消除（例如下面图5 所示的情形，5 个方块会同时被消除）。
3、方块消除之后，消除位置之上的方块将掉落，掉落后可能会引起新的方块消除。注
意：掉落的过程中将不会有方块的消除。
上面图 1 到图3 给出了在棋盘上移动一块方块之后棋盘的变化。棋盘的左下角方块的坐
标为（0, 0），将位于（3, 3）的方块向左移动之后，游戏界面从图1 变成图2 所示的状态，
此时在一竖列上有连续三块颜色为4 的方块，满足消除条件，消除连续3 块颜色为4 的方块
后，上方的颜色为3 的方块掉落，形成图3 所示的局面。
【输入】
输入文件 mayan.in，共6 行。
第一行为一个正整数 n，表示要求游戏通关的步数。
接下来的 5 行，描述7*5 的游戏界面。每行若干个整数，每两个整数之间用一个空格隔
开，每行以一个0 结束，自下向上表示每竖列方块的颜色编号（颜色不多于10 种，从1 开
始顺序编号，相同数字表示相同颜色）。
输入数据保证初始棋盘中没有可以消除的方块。
【输出】
输出文件名为 mayan.out。
2
1
1
1 2 2 2
1
1
1 1 1
如果有解决方案，输出n 行，每行包含3 个整数x，y，g，表示一次移动，每两个整数
之间用一个空格隔开，其中（x，y）表示要移动的方块的坐标，g 表示移动的方向，1 表示
向右移动，-1 表示向左移动。注意：多组解时，按照x 为第一关健字，y 为第二关健字，1
优先于-1，给出一组字典序最小的解。游戏界面左下角的坐标为（0，0）。
如果没有解决方案，输出一行，包含一个整数-1。
【输入输出样例 1】
mayan.in mayan.out
3
1 0
2 1 0
2 3 4 0
3 1 0
2 4 3 4 0
2 1 1
3 1 1
3 0 1
【输入输出样例说明】
按箭头方向的顺序分别为图 6 到图11
样例输入的游戏局面如上面第一个图片所示，依次移动的三步是：（2，1）处的方格向
右移动，（3，1）处的方格向右移动，（3，0）处的方格向右移动，最后可以将棋盘上所有方
块消除。
【数据范围】
对于 30%的数据，初始棋盘上的方块都在棋盘的最下面一行；
对于 100%的数据，0 < n≤5。
其实就是一个简单的开心消消乐+-+，三个一排就可以把自己和连着的同色一起去掉，刚开始觉得搜索过不了，后来发现爆搜是 5*7^5的复杂度，代码最慢的跑了1.5秒，绰绰有余。
搜索过程中的注意事项：
1、十字形的方块消去不要天真的用BFS
2、交换方块后首先要判断下落，然后消去与判下落交替进行（这个很容易想到）
然后是一些剪枝：
1:只搜索一个方格与它右边的方格交换的情况，因为等价。但是要注意：当i,j为空，i+1,j不为空时，应输出i+1,j,-1！！
2:当方格i,j和方格i+1,j颜色相同时，跳过
3:只搜索到最高层的方块所在行
4:当某种颜色的剩余方块数量小于3时，一定无解
最后依然是贴上自己的代码
type tmap=array[0..4,0..7] of shortint; var n,i,j,step:longint; a:Tmap; t:shortint; x,y,g:array[1..5] of integer; procedure swap(var a,b:shortint); var t:shortint;begin t:=a;a:=b;b:=t;end; procedure print; var i:longint; begin for i:=1 to step do writeln(x[i],‘ ‘,y[i],‘ ‘,g[i]); halt; end; function clean(var map:Tmap):boolean; var i,j,k:integer; finish:boolean; f:array[0..4,0..6] of boolean; begin clean:=true; fillchar(f,sizeof(f),false); for i:=0 to 4 do for j:=0 to 6 do if map[i][j]<>0 then begin if(i in [1..3])and (map[i][j]=map[i-1][j])and (map[i][j]=map[i+1][j]) then begin f[i][j]:=true; f[i-1][j]:=true; f[i+1][j]:=true; end; if(j in [1..5])and (map[i][j]=map[i][j+1])and (map[i][j]=map[i][j-1]) then begin f[i][j]:=true; f[i][j+1]:=true; f[i][j-1]:=true; end; end; for i:=0 to 4 do for j:=6 downto 0 do if f[i][j] then begin clean:=false; map[i][j]:=0; end; end; procedure fall(var map:Tmap); var i,j,k:integer; begin for i:=0 to 4 do for j:=1 to 6 do if(map[i][j]<>0)and(map[i][j-1]=0) then begin k:=j; while(k>0)and(map[i][k-1]=0)do dec(k); map[i][k]:=map[i][j];map[i][j]:=0; end; end; function finish(map:Tmap):boolean; var i,j:longint; begin for i:=0 to 4 do for j:=0 to 6 do if map[i][j]<>0 then exit(false); exit(true); end; procedure DFS(map:Tmap); var i,j,k:integer; begin if step<>0 then swap(map[x[step]][y[step]],map[x[step]+g[step]][y[step]]); repeat fall(map) until clean(map); if step=n then if finish(map)then print else exit; for i:=0 to 4 do for j:=0 to 6 do begin if map[i][j]<>0 then begin inc(step); if(i>0)and(map[i-1][j]=0) then begin x[step]:=i; y[step]:=j; g[step]:=-1; DFS(map); end; if(i<4) then begin x[step]:=i; y[step]:=j; g[step]:=1; DFS(map); end; dec(step); end; end; end; begin readln(n);step:=0; for i:=0 to 4 do begin t:=-1; repeat inc(t); read(a[i][t]); until a[i][t]=0; end; DFS(a); writeln(‘-1‘); end.
原文：http://www.cnblogs.com/victorslave/p/4799192.html