这道题除了非常恶心以外也没有什么非常让人恶心的地方

当然一定要说有的话还是有的，就是这题和咱 ZJOI 的 mahjong 真的是好像的说~

于是就想说这道题出题人应该被 锕 掉

noteskey

整体的思路就是特判国士无双和七对子，然后 dp 搞普通的胡牌

dp 状态设计和楼上大佬说的一样，就是用一个五维的 \(f[i][j][k][l][p]\) 表示当前处理了前 i 种类型的牌，存在 j 个 面子/杠子 ，以 i-1 开头的顺子要选 k 个，以 i 开头的面子要选 l 个，以及当前是否有 雀头 (用 p 表示)

然后转移就非常的暴力了，反正这里的数据范围也比较小，枚举下状态转移就好了

总的来说就是道 语文 + 码农 + dp 题，虽说没什么思维难度但我不见得能想出来

watch out

这题的字符串读入还是比较毒瘤的...要稍微注意一下不然可能会出事

code

这压行是同样的味道呢~

//by Judge

#include<bits/stdc++.h>

#define Rg register

#define fp(i,a,b) for(Rg int i=(a),I=(b)+1;i<I;++i)

#define ll long long

using namespace std;

#ifndef Judge

#define getchar() (p1==p2&&(p2=(p1=buf)+fread(buf,1,1<<21,stdin),p1==p2)?EOF:*p1++)

#endif

char buf[1<<21],*p1=buf,*p2=buf;

inline bool cmax(ll& a,ll b){return a<b?a=b,1:0;}

inline int read(){ int x=0,f=1; char c=getchar();

	for(;!isdigit(c);c=getchar()) if(c=='-') f=-1;

	for(;isdigit(c);c=getchar()) x=x*10+c-'0'; return x*f;

} inline void reads(string& s){ char c=getchar();

	for(;!isalpha(c)&&!isdigit(c);c=getchar()); s="";

	for(;isalpha(c)||isdigit(c);c=getchar()) s+=c;

} char sr[1<<21],z[20];int CCF=-1,Z;

inline void Ot(){fwrite(sr,1,CCF+1,stdout),CCF=-1;}

inline void print(ll x,char chr='\n'){

	if(CCF>1<<20)Ot();if(x<0)sr[++CCF]=45,x=-x;

	while(z[++Z]=x%10+48,x/=10);

	while(sr[++CCF]=z[Z],--Z);sr[++CCF]=chr;

} int t,cnt,a[41],b[41],C[5][5]; ll f[41][5][3][3][2],tp[41];

int gs[14]={0,1,9,10,18,19,27,28,29,30,31,32,33,34}; string c;

inline int id(){ if(c[0]=='B') return 34;

	if(c[0]=='E') return 28; if(c[0]=='S') return 29; if(c[0]=='W') return 30;

	if(c[0]=='N') return 31; if(c[0]=='Z') return 32; if(c[0]=='F') return 33;

	if(c[1]=='m') return c[0]-48; if(c[1]=='p') return c[0]-39; return c[0]-30;

}

int main(){ C[0][0]=1;

	fp(i,1,4){ C[i][0]=1;

		fp(j,1,i) C[i][j]=C[i-1][j-1]+C[i-1][j];

	}

	fp(T,1,read()){

		memset(a,0,sizeof a);

		memset(b,0,sizeof b);

		memset(f,0,sizeof f);

		while(1){ reads(c);

			if(c[0]=='0') break;

			else ++a[id()];

		}

		while(1){ reads(c);

			if(c[0]=='0') break;

			else b[id()]=1;

		}

		fp(i,1,34) a[i]=4-a[i];

		ll ans=0;

		fp(i,1,13){ ll tmp=1; //枚举出现两次的牌

			fp(j,1,13) //枚举 13 种牌

				if(i==j)

					if(a[gs[j]]<2) tmp=0; //如果数量不够就让 tmp=0

					else tmp*=C[a[gs[j]]][2]*(b[gs[j]]?4:1); //否则加贡献

				else

					if(a[gs[j]]<1) tmp=0;

					else tmp*=C[a[gs[j]]][1]*(b[gs[j]]?2:1);

			cmax(ans,tmp*13);

		}

		cnt=0;

		fp(i,1,34) if(a[i]>=2) tp[++cnt]=C[a[i]][2]*(b[i]?4:1);

		if(cnt>=7){ //如果牌数大于等于 2 的不止 7 张就可以构成七对子

			sort(tp+1,tp+1+cnt); ll tmp=1; //选出权最大的 7 种牌

			fp(i,cnt-6,cnt) tmp*=tp[i]; //累乘贡献

			cmax(ans,tmp*7);

		}

		f[0][0][0][0][0]=1; //初始化边界

		fp(i,0,33) fp(j,0,4) for(Rg int k=0;k<3&&j+k<=4;++k){

			if(k>=1&&(i==9||i==18||i>=27)) break; //不合法开头无法构成顺子

			for(Rg int l=0;l<3&&j+k+l<=4;++l){

				if(l>=1&&(i==9||i==18||i==27)) break;

				if(f[i][j][k][l][0]||f[i][j][k][l][1]) fp(u,k+l,a[i+1]){

					ll tmp=C[a[i+1]][u]*(b[i+1]?(1<<u):1); //计算贡献

					// 四种转移

					if(j+u<=4&&u-k-l<3)

						cmax(f[i+1][j+k][l][u-k-l][0],f[i][j][k][l][0]*tmp),

						cmax(f[i+1][j+k][l][u-k-l][1],f[i][j][k][l][1]*tmp);

					if(u-k-l-2>=0&&j+u-2<=4)

						cmax(f[i+1][j+k][l][u-k-l-2][1],f[i][j][k][l][0]*tmp);

					if(u-k-l-3>=0&&j+u-2<=4)

						cmax(f[i+1][j+k+1][l][u-k-l-3][0],f[i][j][k][l][0]*tmp),

						cmax(f[i+1][j+k+1][l][u-k-l-3][1],f[i][j][k][l][1]*tmp);

					if(u==4&&!k&&!l&&j<=3)

						cmax(f[i+1][j+1][0][0][0],f[i][j][k][l][0]*tmp),

						cmax(f[i+1][j+1][0][0][1],f[i][j][k][l][1]*tmp);

				}

			}

		}

		cmax(ans,f[34][4][0][0][1]),print(ans);

	} return Ot(),0;

}