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.