Loj#6434「PKUSC2018」主斗地（搜索）

题面

Loj

题解

细节比较多的搜索题。

首先现将牌型暴力枚举出来，大概是$3^{16}$吧。

然后再看能打什么，简化后无非就三种决策：单牌，$3+x$和$4+x$。

枚举网友打了几张$3$和$4$，然后再枚举吉老师（$mathbf {orz}$）打了几张$3$和$4$。

接着枚举$3$搭配了几个$2$，然后贪心地从大到小去除吉老师手中大小为$2$的对子，从小到大去除网友手中大小为$2$的对子。之后就是检查单牌是否合法了。

#include <cmath>
#include <cstdio>
#include <cstring>
#include <algorithm>
using std::min; using std::max;
using std::swap; using std::sort;
typedef long long ll;

template<typename T>
void read(T &x) {
    int flag = 1; x = 0; char ch = getchar();
    while(ch < '0' || ch > '9') { if(ch == '-') flag = -flag; ch = getchar(); }
    while(ch >= '0' && ch <= '9') x = x * 10 + ch - '0', ch = getchar(); x *= flag;
}

const int _ = 20;
char s[_];
int ans, cnt[_], a[_], orz[_];
int wy[_], jtkl[_], thr[_], fou[_], W[_], J[_], P[_];

int code (char c){
	switch(c) {
	case 'T': return 7;
	case 'J': return 8;
	case 'Q': return 9;
	case 'K': return 10;
	case 'A': return 11;
	case '2': return 12;
	case 'w': return 13;
	case 'W': return 14;
	default: return c - '4' + 1;
	}
}

bool check(int f, int t) {
	for(int i = 0; i <= t; ++i) {
		memcpy(W, wy, sizeof wy), memcpy(J, jtkl, sizeof jtkl);
		if(2 * i + t - i + f * 2  + f * 4 + t * 3 > 17) break;
		int cnt = 0;
		for(int j = 1; j <= 14; ++j) {
			if(W[j] >= 2 && cnt < i) W[j] -= 2, ++cnt;
			if(W[j] >= 2 && cnt < i) W[j] -= 2, ++cnt;
			if(cnt == i) break;
		}
		if(cnt < i) break; cnt = 0;
		for(int j = 14; j >= 1; --j) {
			if(J[j] >= 2 && cnt < i) J[j] -= 2, ++cnt;
			if(J[j] >= 2 && cnt < i) J[j] -= 2, ++cnt;
			if(cnt == i) break;
		}
		if(cnt < i) break;
		memset(P, 0, sizeof P);
		cnt = 2 * f + t - i;
		for(int j = 14; j >= 1; --j) {
			int t = min(cnt, J[j]);
			J[j] -= t, cnt -= t;
			if(!cnt) break;
		}
		if(cnt) continue;
		cnt = 2 * f + t - i;
		for(int j = 1; j <= 14; ++j) {
			int t = min(cnt, W[j]);
			W[j] -= t, cnt -= t;
			if(!cnt) break;
		}
		if(J[14]) continue;
		for(int j = 1; j <= 14; ++j)
			P[j] += W[j], P[j + 1] -= J[j];
		cnt = 0;
		for(int j = 1; j <= 14; ++j) {
			cnt += P[j];
			if(cnt > 0) break;
		}
		if(!cnt) return true;
	} return false;
}

bool check_jtkl(int now, int four, int three, int f, int t, int q1, int q2) {
	if(four == f && three == t) return check(f, t);
	if(now >= 12) return false;
	q1 += thr[now], q2 += fou[now];
	if(q1 > 0 || q2 > 0) return false;
	if(jtkl[now] >= 3) {
		jtkl[now] -= 3;
		if(check_jtkl(now + 1, four, three, f, t + 1, q1 - 1, q2)) return true;
		jtkl[now] += 3;
	}
	if(jtkl[now] >= 4) {
		jtkl[now] -= 4;
		if(check_jtkl(now + 1, four, three, f + 1, t, q1, q2 - 1)) return true;
		jtkl[now] += 4;
	}
	return check_jtkl(now + 1, four, three, f, t, q1, q2);
}

bool check_wy (int now, int four, int three) {
	if(four * 6 + three * 4 > 17) return false;
	if(now > 12) return check_jtkl(1, four, three, 0, 0, 0, 0);
	if(wy[now] >= 3) {
		wy[now] -= 3, ++thr[now];
		if(check_wy(now + 1, four, three + 1)) return true;
		wy[now] += 3, --thr[now];
	}
	if(wy[now] >= 4) {
		wy[now] -= 4, ++fou[now];
		if(check_wy(now + 1, four + 1, three)) return true;
		wy[now] += 4, --fou[now];
	}
	return check_wy(now + 1, four, three);
}

void dfs(int now, int rest) {
	if(!rest) {
		memset(thr, 0, sizeof thr);
		memset(fou, 0, sizeof fou);
		memcpy(wy, a, sizeof a);
		memcpy(jtkl, orz, sizeof orz);
		if(check_wy(2, 0, 0)) ++ans;
		return ;
	}
	if(now > 14) return ;
	for(int i = 0; i <= cnt[now]; ++i) {
		if(i > rest) break;
		orz[now] = i, dfs(now + 1, rest - i), orz[now] = 0;
	}
}

int main () {
	while(scanf("%s", s + 1) != EOF) {
		memset(a, 0, sizeof a);
		for(int i = 1; i <= 12; ++i) cnt[i] = 4;
		cnt[13] = cnt[14] = 1, ans = 0;
		for(int i = 1; i <= 17; ++i)
			++a[code(s[i])], --cnt[code(s[i])];
		dfs(1, 17), printf("%d
", ans);
	}
	return 0;
}