[BZOJ 1028] [纪中3066] 麻将 水暴力

Description

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

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

Input

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

Output

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

分析

暴力枚举+判断。
首先枚举加入序号为几的牌，然后再枚举那个序号的牌作为对子，接下来就是判断当前的情况是否恰好能组成顺子和刻子了。
从序号为1的开始，对于第i个先mod 3得到余数，然后把i+1和i+2减去这个余数，只要判断是否为存在负数的情况即可（n+1,n+2也需要判断）
水过~~~

代码

const
  maxn=1000;

var
  f,f1:array[0..maxn] of longint;
  ans:boolean;
  n,m:longint;

procedure init;
var
  i,j,k:longint;
begin
  readln(n,m);
  fillchar(f,sizeof(f),0);
  for i:=1 to 3*m+1 do
    begin
      read(j);
      f[j]:=f[j]+1;
    end;
end;

procedure bfs(i:longint);
var
  j,k,l:longint;
  flag:boolean;
begin
  for j:=1 to n do
    if f[j]>=2
      then
        begin
          f1:=f;
          f[j]:=f[j]-2;
          flag:=true;
          for k:=1 to n do
            begin
              if f[k]<0
                then begin
                  flag:=false;
                  break;
                end;
              f[k]:=f[k] mod 3;
              for l:=k+2 downto k do
                f[l]:=f[l]-f[k];
            end;
          for k:=n to n+2 do
            if f[k]<0
              then begin
                flag:=false;
                break;
              end;
          if flag
            then begin
              write(i,' ');
              ans:=true;
              f:=f1;
              break;
            end;
          f:=f1;
        end;
end;

procedure main;
var
  i,j,k,l:longint;
  flag:boolean;
begin
  ans:=false;
  for i:=1 to n do
    begin
      f[i]:=f[i]+1;
      bfs(i);
      f[i]:=f[i]-1;
    end;
  if ans=false
    then write('NO');
end;

begin
  init;
  main;
end.