#NOIP2011#Mayan游戏（Dfs搜索）

【NOIP2011】Mayan 游戏

时间限制: 3 Sec   内存限制: 128 MB

题目描述

        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。如果有解决方案，输出n 行，每行包含3 个整数x，y，g，表示一次移动，每两个整数之间用一个空格隔开，其中（x，y）表示要移动的方块的坐标，g 表示移动的方向，1 表示向右移动，-1 表示向左移动。注意：多组解时，按照x 为第一关健字，y 为第二关健字，1优先于-1，给出一组字典序最小的解。游戏界面左下角的坐标为（0，0）。如果没有解决方案，输出一行，包含一个整数-1。

样例输入

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。

N的范围很小，可以搜索。

这题细节比较多，主要集中在每一次移动后消除方块上。

暴力枚举将每一个格子的交换可能，因为只能左右移动，那么不妨只考虑每个格子右移的情况，因为左移可以看作是左边的格子右移了。

那么每一次移动，我们需要检查消除的情况，因为不能再下落的途中消除（即必须消除一次到底，再进行下一次消除），于是分成两种情况：掉落和碎裂。

据题意，优先检查掉落，然后去检查竖直和水平方向，此时不能直接删除，因为可能存在图5情况，先标记然后一次清除。

要多次检查，因为每次碎裂和掉落都可能重新引起变化。

Code：

#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<algorithm>
using namespace std;

struct node{
    int x, y, op;
}Step[7];
struct matrix{
    int v[5][7];
    matrix(){   memset(v, 0, sizeof v );}
}Ori;

int N;
bool tg[5][7];

void Fall_check(matrix &lst){
    for(int i = 0; i < 5; ++ i)
        for(int j = 1; j < 7; ++ j)if(lst.v[i][j]){
            int y = j - 1;
            while(y >= 0 && ! lst.v[i][y])  --  y;
            ++ y;
            if(y != j)
                lst.v[i][y] = lst.v[i][j],
                lst.v[i][j] = 0;
        }
}

bool Break_check(matrix &lst){
    bool rt = 0;
    memset(tg, 0, sizeof tg );
    for(int i = 0; i < 5; ++ i){//upright
        int cnt = 0, col = 0;
        for(int j = 0; j < 7; ++ j){
            if(col != lst.v[i][j] || !lst.v[i][j]){
                cnt = 1;
                col = lst.v[i][j];
            }
            else{
                ++ cnt;
                if(cnt > 3) tg[i][j] = 1;
                else if(cnt == 3)
                    tg[i][j] = tg[i][j - 1] = tg[i][j - 2] = 1;
            }
        }
    }
    for(int j = 0; j < 7; ++ j){//parallel
        int cnt = 0, col = 0;
        for(int i = 0; i < 5; ++ i){
            if(col != lst.v[i][j] || ! lst.v[i][j]){
                cnt = 1;
                col = lst.v[i][j];
            }
            else{
                ++ cnt;
                if(cnt > 3) tg[i][j] = 1;
                else if(cnt == 3)
                    tg[i][j] = tg[i - 1][j] = tg[i - 2][j] = 1;
            }
        }
    }
    for(int i = 0; i < 5; ++ i)
        for(int j = 0; j < 7; ++ j) if(tg[i][j])
            lst.v[i][j] = 0, rt = 1;
    return rt;
}

matrix Move(matrix lst, int x, int y, int op){
    swap(lst.v[x][y], lst.v[x + op][y]);
    Fall_check(lst);
    while(Break_check(lst)) Fall_check(lst);
    return lst;
}

bool Check(matrix lst){
    for(int i = 0; i < 5; ++ i)
        for(int j = 0; j < 7; ++ j)
            if(lst.v[i][j]) return 0;
    return 1;
}

bool Dfs(int p, matrix lst){
    if(Check(lst)){
        if(p == N)  return 1;
        return 0;
    }
    else if(p == N) return 0;
    ++ p;
    for(int x = 0; x < 5; ++ x)
        for(int y = 0; y < 7; ++ y) if(lst.v[x][y]){
            Step[p].x = x, Step[p].y = y;
            if(x != 4 && lst.v[x + 1][y] != lst.v[x][y]){
                Step[p].op = 1;
                if(Dfs(p, Move(lst, x, y, 1)))    return 1;
                else if(x && ! lst.v[x - 1][y]){
                    Step[p].op = -1;
                    if(Dfs(p, Move(lst, x, y, -1)))   return 1;
                }
            }
            else if(x == 4 && ! lst.v[x - 1][y]){
                Step[p].op = -1;
                if(Dfs(p, Move(lst, x, y, -1))) return 1;
            }
        }
    return 0;
}

int main(){
    scanf("%d", &N);
    for(int i = 0; i < 5; ++ i){
        int j = 0, x;
        while(scanf("%d", & x) && x)    Ori.v[i][j ++] = x;
    }
    if(! Dfs(0, Ori))   printf("-1\n");
    else {
        for(int i = 1; i <= N; ++ i)
            printf("%d %d %d\n", Step[i].x, Step[i].y, Step[i].op);
    }
    return 0;
}