[NOIP2011]玛雅游戏

闲的没事干，出来写一下早两天刷的一道搜索题NOIP2011玛雅游戏，其实这道题还是比较水的，虽然看起来可能有点复杂。
方法很简单粗暴，直接根据规则模拟就行。
话不多说直接上代码（关键操作在注释中有提到）：

#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<algorithm>
#define File(s) freopen(s".in","r",stdin),freopen(s".out","w",stdout)
#define ll long long
#define il inline
#define RG register
#define inf (1<<30)
using namespace std;

il int gi(){
  RG int x=0,q=1; RG char ch=getchar();
  while( ( ch<'0' || ch>'9' ) && ch!='-' ) ch=getchar();
  if( ch=='-' ) q=-1,ch=getchar();
  while(ch>='0' && ch<='9') x=x*10+ch-48,ch=getchar();
  return q*x;
}

int n,a,b;
int map[ 6 ][ 8 ],step[ 10 ][ 3 ];
bool broken[ 6 ][ 8 ],appear[ 11 ];
int color,sum[ 11 ];

il bool check(){
  memset( sum,0,sizeof( sum ) );
  for( RG int i=1;i<=5;i++ )
    for( RG int j=1;j<=7;j++ )
      sum[ map[ i ][ j ] ]++;
  for( RG int i=1;i<=color;i++ )
    if( sum[i] && sum[i]<=2 )
      return false;
  //若块数小于3则无法消去
  return true;
}

il int count(){
  memset( broken,0,sizeof( broken ) );
  RG int left,right,top,bottom;
  RG int ans=0,drop=0;
  for( RG int i=1;i<=5;i++ )
    for( RG int j=1;j<=7;j++ )
      if( map[ i ][ j ] )
        if( j==1 || ( j>1 && map[ i ][ j-1 ] ) ){//找到一个没有悬空的块
          left=right=i;
          top=bottom=j;
          while(left>1 && map[left-1][j]==map[i][j])
            left--;
          while(right<4 && map[right+1][j]==map[i][j])
            right++;
          while(top<7 && map[ i ][top+1]==map[i][j])
            top++;
          while(bottom>1 && map[i][bottom-1]==map[i][j])
            bottom--;
          //统计可以消除的块
          if( right-left+1>=3 )
            for( RG int k=left;k<=right;k++ )
              broken[ k ][ j ]=1;
          if( top-bottom+1>=3 )
            for( RG int k=top;k>=bottom;k-- )
              broken[ i ][ k ]=1;
        }
  for( RG int i=1;i<=5;i++ )
    for( RG int j=1;j<=7;j++ )
      if( broken[ i ][ j ] )
        ans++,map[ i ][ j ]=0;
  RG int i,j,down,up;
  for( i=1;i<=5;i++ ){
    j=1;
    while( j<=7&&map[ i ][ j ] ) j++;
    down=j; //找到该列第一个空块
    while( j<=7&&!map[ i ][ j ] )j++;
    up=j-1;////找到该列最后一个空块
    if( up==7 ) continue;//若道顶端都没有悬空的块就跳过该列
    RG int k=0;
    for( j=down;j<=7;j++ ){//下落操作
      k++;
      if( map[i][j] || !map[i][up+k] ) break;
      map[i][j]=map[i][up+k];
      map[i][up+k]=0;
      drop=1;
    }
  }
  //**下落的块还会造成其他块消除，所以再次统计**
  if( drop ) ans+=count();
  return ans;
}

il void dfs( int ste,int cnt ){//分别表示已走步数和剩余块数
  if( !check() )return ;
  if( ste>n ){
    if( !cnt ){
      for( RG int i=1;i<=n;i++ )
        printf("%d %d %d \n",step[i][0]-1,step[i][1]-1,step[i][2]);
      exit(0);
    }
    return ;
  }
  int mapp[ 6 ][ 8 ],if_change,x;
  for( RG int i=1;i<=5;i++ )
    for( RG int j=1;j<=7;j++ )
      mapp[i][j]=map[i][j];

  for( RG int i=1;i<=5;i++ )
    for( RG int j=1;j<=7;j++ ){
      if( map[i][j] ){//找到可以移动的块
        if_change=1;
        if( i<5 && map[i][j]!=map[i+1][j] ){
          //考虑到结果的优先原则，先进行右移操作
          swap( map[i][j],map[i+1][j] );
          step[ste][0]=i;
          step[ste][1]=j;
          step[ste][2]=1;
          x=cnt-count();
          dfs( ste+1,x );
          if_change=0;
        }
        if( !if_change ){//回溯
          for( RG int g=1;g<=5;g++ )
            for( RG int s=1;s<=7;s++ )
              map[g][s]=mapp[g][s];
          if_change=1;
        }
        if( i>1 && !map[i-1][j] ){
          //只有左边没有块的时候才交换，否则就会和前面往右
          //移的步骤重复
          swap( map[i][j],map[i-1][j] );
          step[ste][0]=i;
          step[ste][1]=j;
          step[ste][2]=-1;
          x=cnt-count();
          dfs( ste+1,x );
          if_change=0;
        }
        if( !if_change )
          for( RG int g=1;g<=5;g++ )
            for( RG int s=1;s<=7;s++ )
              map[ g ][ s ]=mapp[ g ][ s ];
      }
    }
}

il void init(){
  n=gi();
  for( RG int i=1;i<=5;i++ ){
    RG int j=0;
    a=gi();
    while( a ){
      map[ i ][ ++j ]=a;
      if( !appear[ a ] ) appear[ a ]=1,color++;
      a=gi();
      b++;
    }
  }
}

int main(){init();dfs( 1,b );printf( "-1\n" );return 0;}