3066. 【NOIP2012模拟10.29晚】麻将 (Standard IO)

Description






【问题描述】




麻将是中国传统的娱乐工具之一。麻将牌的牌可以分为字牌（共有东、南、西、北、中、发、白七种）和序数牌（分为条子、饼子、万子三种花色，每种花色各有一 到九的九种牌），每种牌各四张。在麻将中，通常情况下一组和了的牌（即完成的牌）由十四张牌组成。十四张牌中的两张组成对子（即完全相同的两张牌），剩余 的十二张组成三张一组的四组，每一组须为顺子（即同花色且序数相连的序数牌，例如条子的三、四、五）或者是刻子（即完全相同的三张牌）。一组听牌的牌是指 一组十三张牌，且再加上某一张牌就可以组成和牌。那一张加上的牌可以称为等待牌。




在这里，我们考虑一种特殊的麻将。在这种特殊的麻将里，没有字牌，花色也只有一种。但是，序数不被限制在一到九的范围内，而是在1到n的范围内。 同时，也没有每一种牌四张的限制。一组和了的牌由3m + 2张牌组成，其中两张组成对子，其余3m张组成三张一组的m组，每组须为顺子或刻子。现给出一组3m + 1张的牌，要求判断该组牌是否为听牌（即还差一张就可以和牌）。如果是的话，输出所有可能的等待牌。






Input






【输入】




输入文件名为mahjong.in。




包含两行。




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






Output






【输出】




输出文件名为mahjong.out。




输出为一行。




如果该组牌为听牌，则输出所有的可能的等待牌的序数，数字之间用一个空格隔开。所有的序数必须按从小到大的顺序输出。如果该组牌不是听牌，则输出"NO"。






Sample Input


9 4


1 1 2 2 3 3 5 5 5 7 8 8 8




Sample Output


6 7 9








Data Constraint




Hint






【数据范围】




10%满足n≤13，m≤20。

100%满足9<=n<=400, 4<=m<=1000。

题解

暴力枚举，先枚举听牌，再枚举对子，最后枚举刻子和顺子。

代码

var
  a,b,ans:array[1..1000] of longint;
  n,m:longint;
function main:longint;
var
  i,j:longint;
begin
  for i:=n downto 1 do
    begin
      b[i]:=b[i] mod 3;
      if b[i]>0 then
        begin
          if i<3 then exit(0);
          for j:=i-1 downto i-2 do
            begin
              b[j]:=b[j]-b[i];
              if b[j]<0 then exit(0);
            end;
        end;
    end;
  exit(1);
end;
var
  i,j,k,tot,x:longint;
begin
  readln(n,m);
  for i:=1 to 3*m+1 do
    begin
      read(x);
      inc(a[x]);
    end;
  for i:=1 to n do
    begin
      inc(a[i]);
      for k:=1 to n do
        begin
          for j:=1 to n do b[j]:=a[j];
          b[k]:=b[k]-2;
          if b[k]<0 then continue;
          if main=1 then
            begin
              inc(tot);
              ans[tot]:=i;
              break;
            end;
        end;
      dec(a[i])
    end;
  if tot=0 then writeln('NO')
  else
    for i:=1 to tot do write(ans[i],' ');
end.