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 所示的局面。
如果有解决方案，输出n 行，每行包含3 个整数x，y，g，表示一次移动，每两个整数之间用一个空格隔开，其中（x，y）表示要移动的方块的坐标，g 表示移动的方向，1 表示向右移动，-1 表示向左移动。注意：多组解时，按照x 为第一关健字，y 为第二关健字，1优先于-1，给出一组字典序最小的解。游戏界面左下角的坐标为（0，0）。
如果没有解决方案，输出一行，包含一个整数-1。
1 #include<cmath>
2 #include<ctime>
3 #include<cstdio>
4 #include<cstdlib>
5 #include<cstring>
6 #include<iostream>
7 #include<algorithm>
8 using namespace std;
9 int n;
10 bool ok(int b[10][10]){
11 bool pd=0;
12 bool vis[10][10];
13 memset(vis,0,sizeof(vis));
14 for(int i=0;i<7;i++){
15 for(int j=0;j<5;j++){
16 if(!b[i][j]) continue;
17 int l=j,r=j,p=i,d=i;
18 while(l>0 && b[i][l-1]==b[i][j]) l--;
19 while(r<5 && b[i][r+1]==b[i][j]) r++;
20 while(p<7 && b[p+1][j]==b[i][j]) p++;
21 while(d>0 && b[d-1][j]==b[i][j]) d--;
22 if((r-l+1)>=3){
23 pd=1;
24 for(int k=l;k<=r;k++) vis[i][k]=1;
25
26 }
27 if((p-d+1)>=3){
28 pd=1;
29 for(int k=d;k<=p;k++) vis[k][j]=1;
30 }
31 }
32 }
33 for(int i=0;i<7;i++){
34 for(int j=0;j<5;j++){
35 if(vis[i][j]==1) b[i][j]=0;
36 }
37 }
38 return pd;
39 }
40 int sum;
41 void xiao(int b[10][10]){
42 while(ok(b)){
43 sum=0;
44 for(int i=0;i<5;i++){
45 for(int j=0;j<7;j++){
46 if(b[j][i]==0){
47 for(int k=j+1;k<7;k++){
48 if(b[k][i]){
49 sum++;
50 b[j][i]=b[k][i];
51 b[k][i]=0;
52 break;
53 }
54 }
55 }
56 else{
57 sum++;
58 }
59 }
60 }
61 }
62 }
63 void mov(int i,int j,int ord,int b[10][10]){
64 if(b[i][j+ord]){
65 swap(b[i][j+ord],b[i][j]);
66 }
67 else {
68 int t=i,c=j+ord;
69 while(b[t-1][c]==0 && t>0) t--;
70 b[t][c]=b[i][j];
71 b[i][j]=0;
72 for(int k=i;k<7;k++){
73 b[k][j]=b[k+1][j];
74 }
75 }
76 xiao(b);
77
78 }
79 bool xing(int b[10][10]){
80 bool ret=1;
81 for(int i=0;i<7;i++){
82 for(int j=0;j<5;j++){
83 if(b[i][j]) ret=0;
84 }
85 }
86 return ret;
87 }
88 bool sc=0;
89 int shuchu[10][5];
90 bool zhao;
91 bool zhao2;
92 void dfs(int num,int a[10][10]){
93 int b[10][10];
94 for(int j=0;j<5;j++){
95 for(int i=0;i<7;i++){
96 if(a[i][j]==0) continue;
97 if(j==0){
98 memcpy(b,a,sizeof(b));
99 mov(i,j,1,b);
100 if(num==n && !sum){
101 sc=1;
102 shuchu[num][2]=i;
103 shuchu[num][1]=j;
104 shuchu[num][3]=1;
105 return;
106 }
107 if(num!=n)
108 dfs(num+1,b);
109 if(sc){
110 shuchu[num][2]=i;
111 shuchu[num][1]=j;
112 shuchu[num][3]=1;
113 return;
114 }
115
116 }
117 else if(j!=4){
118 memcpy(b,a,sizeof(b));
119 mov(i,j,1,b);
120 if(num==n && !sum){
121 sc=1;
122 shuchu[num][2]=i;
123 shuchu[num][1]=j;
124 shuchu[num][3]=1;
125 return;
126 }
127 if(num!=n)
128 dfs(num+1,b);
129 if(sc){
130 shuchu[num][2]=i;
131 shuchu[num][1]=j;
132 shuchu[num][3]=1;
133 return;
134 }
135 if(b[i][j-1]==0){
136 memcpy(b,a,sizeof(b));
137 mov(i,j,-1,b);
138 if(num==n && !sum){
139 sc=1;
140 shuchu[num][2]=i;
141 shuchu[num][1]=j;
142 shuchu[num][3]=-1;
143 return;
144 }
145 if(num!=n)
146 dfs(num+1,b);
147 if(sc){
148 shuchu[num][2]=i;
149 shuchu[num][1]=j;
150 shuchu[num][3]=-1;
151 return;
152 }
153 }
154 }
155 else{
156 memcpy(b,a,sizeof(b));
157 mov(i,j,-1,b);
158 if(num==n && !sum){
159 sc=1;
160 shuchu[num][2]=i;
161 shuchu[num][1]=j;
162 shuchu[num][3]=-1;
163 return;
164 }
165 if(num!=n)
166 dfs(num+1,b);
167 if(sc){
168 shuchu[num][2]=i;
169 shuchu[num][1]=j;
170 shuchu[num][3]=-1;
171 return;
172 }
173 }
174 }
175 }
176 }
177 int main(){
178 //freopen("a.in","r",stdin);//freopen("a.out","w",stdout);
179 //freopen("mayan.in","r",stdin); freopen("mayan.out","w",stdout);
180 scanf("%d",&n);
181 sum=1;
182 int x;
183 int a[10][10];
184 memset(a,0,sizeof(a));
185 for(int i=0;i<5;i++){
186 int ji=0;
187 while(scanf("%d",&x)==1){
188 if(x==0) break;
189 a[ji++][i]=x;
190 }
191 }
192 /*for(int k=0;k<7;k++){
193 for(int h=0;h<5;h++){
194 cout<<a[k][h]<<" ";
195 }
196 cout<<endl;
197 }
198 cout<<endl;
199 mov(0,0,1,a);
200 cout<<"sum== "<<sum<<endl;
201 for(int k=0;k<7;k++){
202 for(int h=0;h<5;h++){
203 cout<<a[k][h]<<" ";
204 }
205 cout<<endl;
206 }
207 cout<<endl;
208 while(1);*/
209 dfs(1,a);
210 if(!sc){
211 cout<<-1<<endl;
212 }
213 else{
214 for(int i=1;i<=n;i++){
215 for(int j=1;j<=3;j++){
216 cout<<shuchu[i][j]<<" ";
217 }
218 cout<<endl;
219 }
220 }
221 }
