斗地主算法

       不得不承认，算法搁置了一些时间，代码的风格下降了好多！  贴上一个曹点多多且丑的代码！  Orz... 

题目要求：     

编码:3表示3点 ，4表示4点点  。。。。 10表示10点  11表示J   12表示Q   13表示K  14表示A   15表示2   16表示小王   17表示大王

要求:

1)出牌牌型包括(单子，对子, 三张,三带一，三带二,顺子,连对(3连对，4连对，5连对....),四张炸弹，四带一 ，四带二(四带2个单张，四带2个对子)，对王炸弹)

2)初始化1副牌(54张),随机发一手牌(17张)显示出来

3)手动输入一个几张牌。判断输入牌是否是1)中的牌型。 程序根据牌型判断自己的手牌是否可以压该牌，如果可以压，则显示可以压的牌型，并输出，从手牌减去已压的牌。显示剩余的牌

4)循环过程要求3 直到牌出完。

代码：  

#define Gxjun
#define LOCAL
#define Test
#include<stdio.h>
#include<string.h>
#include<stdlib.h>
#include<time.h>
#define Arr_Len(arr)  sizeof(arr)/sizeof(arr[0])
#define maxn 18


int cod[maxn]={0};
int mycod[maxn];
int chu[maxn];
int rtmp[maxn]={0} ,mtmp[maxn]={0};
int mx  , mn ;

typedef struct LianD
{
    int en ; //连对结尾的牌号
    int du ; //最接近的度数
    int cnt ; //连对的个数
    int tem ; //临时存储的结尾牌号
    //复制值函数
    void copfun(struct LianD  *Ld){

        Ld->cnt=cnt;
        Ld->du=du;
        Ld->en=en;
        Ld->tem=tem;
    }
    //初始化
    void init(){
      en=du=cnt=tem=0;
    }
};

enum AlgTyNn{  ShunZi=1 ,
               LianDui
             };

int cmp(const void * arg  , const void * brg){

   int * ar =(int *) arg ;
   int * br =(int *) brg ;
   return *ar - *br ;

}

#ifdef Test
void init()
{
  int i , cnt=0 ;


#ifdef Test
  #ifndef LOCAL
   #define LOCAL
   #endif // LOCAL
#endif // Test

#ifdef LOCAL
   freopen("data.in","r",stdin);
#endif // Test
  memset(mycod , 0 , sizeof(mycod));
  mycod[cnt]=17;
  cod[17]=cod[16]=1;   //一对王
  for(i=3 ; i<16 ;i++)
      cod[i]=4;
  while(++cnt<maxn){
     scanf("%d" ,&mycod[cnt]);
     cod[mycod[cnt]]--;
 }
 #ifdef Gxjun
  fclose(stdin);
  freopen("CON","r",stdin);
  #endif // Gxjun
  qsort(mycod+1 , cnt-1 , sizeof(mycod-1) , cmp);
}

#endif // Test

#ifndef Test
void init(){

  int i , hopg ,cnt=0 ;
  memset( mycod , 0 , sizeof(mycod) ) ;
  mycod[cnt]=17;
  for(i=3 ; i<16 ;i++)
      cod[i]=4;
  cod[16]=1;   //一对王
  cod[17]=1;
  srand(time(NULL));

  while(cnt<maxn){

    hopg = rand()%maxn ;

    if( hopg>0&&cod[hopg] > 0 ){
      cod[hopg]--;
      mycod[++cnt]=hopg;
    }
  }
  qsort(mycod+1 , cnt-1 , sizeof(mycod-1) , cmp);

}
#endif // Test

//对方输出
void inputs(){

  int cnt=0;
  memset(chu , 0 , sizeof(chu));
   while(1){
     scanf("%d",&chu[++cnt]);
     if(chu[cnt]<0) break;
  }
   chu[0]=cnt-1 ;  //最开头放置纸牌的数目

}

//打印剩余
void output(){

    printf("  |   剩牌系: ");
    //剩余牌系
    int cont=0;
    for(int j=3 ; j<maxn ;j++){
        cont+=mtmp[j];
        for(int k=0; k<mtmp[j] ; k++){
           printf("%d ",j);
        }
    }
     mtmp[0]=cont;
     printf("	剩牌数: [ %d ]",mtmp[0]);
     puts("");
}

//计数排序
void connt(int *tmp , const int ss []){

   //memset(tmp ,0 ,sizeof(tmp));
   tmp[0]=ss[0];
  for(int i= 1 ; i<=ss[0] ; i++)
        tmp[ss[i]]++;     //计数排序
}

//判断是否有炸弹或者王炸
void ZhaDan(){

for(int i=3 ; i<maxn ;i++)
  if(mtmp[i]==4){
    printf("%d %d %d %d ",i,i,i,i);
    mtmp[i]-=4;
    output();
    return ;
  }

 if(mtmp[16]==1&&mtmp[17]==1){
     printf("%d %d ",16,17);
     mtmp[16]=mtmp[17]=0;
     output();
     return ;
 }
   puts("没有牌能压过！");
   return ;
}


//如果是连对处理方案
void AlgLDOrShZi(int var){

  int i=mn+1 ,len = mx-mn+1 ,kk=0;
  struct LianD   Ld , Tmpld;

       Ld.init();
    //时间复杂度为0(n^2)
 for( i = mn+1 ; i<15 ; i++){
        Tmpld.init();
        Tmpld.tem=i;
    for(int j=i ; j<i+len ; j++){
     if(mtmp[j]>=var){

        if(mtmp[j]==var){
            Tmpld.du++;
        }
         Tmpld.cnt++;
     }else{
          Tmpld.init();
          Tmpld.tem=j+1;
      }
     if(Tmpld.cnt==len){
         Tmpld.en =Tmpld.tem;
         if(Ld.en==0||Ld.du<Tmpld.du)
            Tmpld.copfun(&Ld);
             break;
     }
    }
 }
  if(Ld.cnt == len){
      puts("提示：");
    for(i=Ld.en; i<Ld.en+len ;i++){
          mtmp[i]-=var;
          kk=0;
    while(kk++<var)
        printf("%d " ,i);
    }
     output();
  }else{
    //寻求炸弹或者王炸
    ZhaDan();
  }

}

//三带的处理情况

void  AlgShanDai(){

  int pos=0 , cnt=0 , res=0,fcnt=0;
  int mcnt=0 , mpos=0 ;
  //分析牌型
  for(int i=mn;i<=mx ;i++){
    if(rtmp[i]==3){
        pos=i;
        cnt++;
     }else if(rtmp[i]>0){
          res+=rtmp[i];  //统计剩余牌的数量
          fcnt++;
     }
    }
    if((fcnt==cnt&&res%cnt==0)||(fcnt<cnt&&(fcnt*res==cnt||0==res))) ;
    else{
      puts("输出的牌不符合规则！请重新输出：");
      return ;
    }
     res/=cnt;
     for(int i=pos-cnt+2 ; i<=pos; i++){
            if(rtmp[i]!=3){
            puts("输出的牌不符合规则！请重新输出：");
             return ;
            }
     }

  //如果为三带情况 即 cnt =1
    for(int i=pos-cnt+2 ; i<17 ;i++){
       if(mtmp[i]==3){
            mpos=i;
            mcnt++;
       }else
            mcnt=0;
       if(mcnt==cnt) break;
    }
    //查询副牌是否能够满足
    if(mcnt==cnt){
      //说明有解决方案
      int stpos = mpos - cnt +1 ;
      int src[maxn]={0} ,tt=0;
      bool tag = false;
      for(int i=3 ; i<17 ;i++){
        //满足不再连续范围之内的即可333444不能为3,4
        if(i<stpos||i>mpos){
          if(mtmp[i]>=res){
             for(int kk=0 ; kk<mtmp[i] ;kk+=res){
                  src[tt++]=i;
                  if(tt==cnt){
                    tag = true;
                    break;
                  }
             }
          }
        }
        if(tag)  break ;
      }
      if(tt==cnt){
        //则解决方案为
        int mstpos = mpos - cnt +1;
        for(int i=mstpos ; i<=mpos ; i++){
             printf("%d %d %d " ,i,i,i);
             mtmp[i]-=3;
        }
        //打印副牌
        for(int i=0; i<tt ;i++){
          for(int k=0 ;k<res ;k++){
              printf("%d ",src[i]);
          }
            mtmp[src[i]]-=res;
         }
           output();   //打印剩余牌
      }
    }else{

      //查询是否有炸弹
      ZhaDan();
    }
}

//四带情况
void AlgSiDai(){
    if(chu[0]>4)  ZhaDan();
    else{
       for(int i=chu[1]+1 ; i<15 ; i++){
          if(mtmp[i]==4){
                printf("%d %d %d %d ",i,i,i,i);
                mtmp[i]-=4;
                output();
              return ;
        }
    }
   if(mtmp[16]==1&&mtmp[17]==1){
     printf("%d %d ",16,17);
      mtmp[16]=mtmp[17]=0;
      output();
      return ;





 }
   puts("没有牌能压过！");
   return ;
  }
}


//对子的情况
void AlgDuiZi(){
    for(int i=chu[1]+1 ; i<16 ;i++)
    {
        if(mtmp[i]>1&&mtmp[i]<4){
            printf("%d %d 
",i,i);
            mtmp[i]-=2;
            output();
            return ;
        }
    }
    ZhaDan();
}

//对于个子的情况
void AlgGreZi(){

for(int i=chu[1]+1 ; i<18 ;i++)
    {
        if(mtmp[i]>0&&mtmp[i]<4){
            printf("%d 
",i);
            mtmp[i]-=1;
            output();
            return ;
        }
    }
    ZhaDan();
}

//查询对应的方案

//对子

bool IsDuiZi(){

  if(chu[0]==2)  //则必定是对子
     return true;
 return false ;
}

//个子
bool IsGreZi(){

 if(chu[0]==1)  //则必定是对子
     return true;

 return false ;
}

//判断是否是顺子
bool IsShunZi(){

//顺子的条件
if(chu[0]>4){
if((mx-mn+1==chu[0])&& mx<15)
    return true ;
}
return false;
}

//判断是否是连对
bool IsLianDui(){
 if(chu[0]>5&&mx<15){
    for(int i=mn; i<=mx ;i++)
         if(rtmp[i]!=LianDui)
            return false;
   return true ;
 }
  return false;
}

//判断是否是三带
bool IsShanDai(){

      for(int i=mn; i<=mx ;i++)
         if(rtmp[i]==3)
            return true;

  return false ;
}



//判断是否是四带或者炸弹
bool IsSiDai(){

   for(int i=mn; i<=mx ;i++)
    if(rtmp[i]==4)
        return true;

    return false ;
}


//统计判断
void AlgMxn(){

      //求最大值，最小值
  for(int i =3 ; i<= 17 ; i++)
      if(rtmp[i]>0){
          mn = i;
          break;
    }
   for(int i =17 ; i>= 3 ; i--)
      if(rtmp[i]>0){
          mx = i;
          break;
      }

}

void print(){

 int i;
 for(i=1; i<17; i++)
    printf("%d ", mycod[i]);
 printf("%d
", mycod[17]);

}

//检测出牌方
bool checked(){

  for(int i=1 ; i<maxn ;i++){
     if(cod[i]<rtmp[i])
        return false;
  }

   if(IsGreZi()
      ||IsDuiZi()
      ||IsShunZi()
      ||IsSiDai()
      ||IsShanDai()){
        for(int i=1; i<=chu[0] ;i++){
            cod[chu[i]]--;
        }
      }
      return true ;
    //如果为一对王
    if(chu[0]==2&&mtmp[16]==1&&mtmp[17]==1)
        return true;
  return false;
}

int main(int argc , char * argv)
{

 init();

 memset(mtmp , 0 , sizeof(mtmp));

 connt(mtmp , mycod);
 print();

 while(true){
   printf("请出牌：
");
  while(1){
  inputs();
  memset(rtmp , 0 ,sizeof(rtmp));
  connt(rtmp , chu);
  AlgMxn();
  if(checked())   break;
  else
     puts("输出的牌不符合规则！请重新输出：");
  }
        //如果满足顺子
    if(IsGreZi())
          AlgGreZi();
    else
        if(IsDuiZi())
             AlgDuiZi();
    else
        if(IsShunZi())
             AlgLDOrShZi(ShunZi);
    else
        if(IsLianDui())
             AlgLDOrShZi(LianDui);   //对于连对的情况
    else
        if(IsShanDai())
             AlgShanDai();
    else
        if(IsSiDai())
             AlgSiDai();

   if(mtmp[0]<1){
      puts("恭喜你，win!");
    break;
   };
 }
 return 0;

}