1028: [JSOI2007]麻将 - BZOJ

Description

麻将是中国传统的娱乐工具之一。麻将牌的牌可以分为字牌（共有东、南、西、北、中、发、白七种）和序数牌（分为条子、饼子、万子三种花色，每种花色各有一到九的九种牌），每种牌各四张。在麻将中，通常情况下一组和了的牌（即完成的牌）由十四张牌组成。十四张牌中的两张组成对子（即完全相同的两张牌），剩余的十二张组成三张一组的四组，每一组须为顺子（即同花色且序数相连的序数牌，例如条子的三、四、五）或者是刻子（即完全相同的三张牌）。一组听牌的牌是指一组十三张牌，且再加上某一张牌就可以组成和牌。那一张加上的牌可以称为等待牌。　　在这里，我们考虑一种特殊的麻将。在这种特殊的麻将里，没有字牌，花色也只有一种。但是，序数不被限制在一到九的范围内，而是在1到n的范围内。同时，也没有每一种牌四张的限制。一组和了的牌由3m + 2张牌组成，其中两张组成对子，其余3m张组成三张一组的m组，每组须为顺子或刻子。现给出一组3m + 1张的牌，要求判断该组牌是否为听牌（即还差一张就可以和牌）。如果是的话，输出所有可能的等待牌。
Input

包含两行。第一行包含两个由空格隔开整数n, m (9<=n<=400, 4<=m<=1000)。第二行包含3m + 1个由空格隔开整数，每个数均在范围1到n之内。这些数代表要求判断听牌的牌的序数。
Output

输出为一行。如果该组牌为听牌，则输出所有的可能的等待牌的序数，数字之间用一个空格隔开。所有的序数必须按从小到大的顺序输出。如果该组牌不是听牌，则输出"NO"。
Sample Input
9 4
1 1 2 2 3 3 5 5 5 7 8 8 8

Sample Output
6 7 9

囧，我一直以为以为直接搜索就行了，没有算时间

原来要贪心的选，先枚举要胡的，然后把能做刻子的都做刻子，剩下的都只能做顺子，扫一遍就出来了

代码就坑爹了，发现这个贪心之后，我直接把我暴力枚举的那一段中枚举刻子的个数的地方改成枚举最大刻子数的就可以了

 const
         maxn=;
 var
         s:array[..maxn]of longint;
         n,m:longint;

 procedure init;
 var
         i,x:longint;
 begin
         read(n,m);
         for i:= to *m+ do
           begin
             read(x);
             inc(s[x]);
           end;
 end;

 function dfs(x:longint):boolean;
 var
         i,k:longint;
 begin
         while (s[x]=) and (x<=n) do
           inc(x);
         if x>n then exit(true);
         k:=s[x]mod ;
         for i:=s[x]div  to s[x]div  do
           begin
             dec(s[x+],k);
             dec(s[x+],k);
             if (s[x+]>=) and (s[x+]>=) then
             if dfs(x+) then
             begin
               inc(s[x+],k);
               inc(s[x+],k);
               exit(true);
             end;
             inc(s[x+],k);
             inc(s[x+],k);
             inc(k,);
           end;
         exit(false);
 end;

 procedure work;
 var
         i,j:longint;
         flag:boolean;
 begin
         flag:=false;
         for i:= to n do
           begin
             inc(s[i]);
             for j:= to n do
               if s[j]> then
               begin
                 dec(s[j],);
                 if dfs() then
                 begin
                   inc(s[j],);
                   if flag=false then write(i)
                   else write(' ',i);
                   flag:=true;
                   break;
                 end;
                 inc(s[j],);
               end;
             dec(s[i]);
           end;
         if flag=false then write('NO');
 end;

 begin
         init;
         work;
 end.