Description给定一个正整数序列 A 1 , A 2 , ⋯ , A N A_1, A_2, \cdots, A_N A 1 , A 2 , ⋯ , A N 。定义 S = N + ∑ 1 ≤ i ≤ N A i S = N + \sum_{1 \leq i \leq N} A_i S = N + ∑ 1 ≤ i ≤ N A i 。
猫 Snuke 拥有 S S S 张卡片。每张卡片上写有一个整数,分别为 A 1 , A 2 , ⋯ , A N , − 1 , ⋯ , − 1 A_1, A_2, \cdots, A_N, -1, \cdots, -1 A 1 , A 2 , ⋯ , A N , − 1 , ⋯ , − 1 。特别地,写有 − 1 -1 − 1 的卡片共有 ∑ 1 ≤ i ≤ N A i \sum_{1 \leq i \leq N} A_i ∑ 1 ≤ i ≤ N A i 张。
Snuke 现在位于数轴上坐标为 0 0 0 的位置。接下来,它将进行 S S S 次如下操作:
设 Snuke 当前所在位置的坐标为 x x x 。从持有的卡片中选择一张并丢弃。设丢弃的卡片上的数为 v v v ,则跳跃到坐标为 x + v x + v x + v 的位置。如果跳跃后的坐标为 0 0 0 ,则获得 1 1 1 枚硬币。 对于每个 k = 1 , 2 , ⋯ , N k = 1, 2, \cdots, N k = 1 , 2 , ⋯ , N ,求 Snuke 恰好获得 k k k 枚硬币的跳跃序列有多少种,结果对 998244353 998244353 9 9 8 2 4 4 3 5 3 取模。
注意计数的是跳跃序列。也就是说,如果两张卡片上的数相同,则丢弃它们的操作被视为相同的。
1 ≤ N ≤ 5000 1 \leq N \leq 5000 1 ≤ N ≤ 5 0 0 0 ,1 ≤ A i ≤ 5000 1 \leq A_i \leq 5000 1 ≤ A i ≤ 5 0 0 0 。
Solution先把所有 a i a_i a i 相同的卡片看成不同的,最后除以每个出现次数的阶乘即可。
考虑求出钦定 k k k 个硬币的方案数,最后再二项式反演回去即可。
对于一个集合 S S S ,设其大小为 c c c ,总和为 s u m sum s u m ,则它的内部出现一个硬币的方案数为 ( s u m + 1 ) ( s u m + 2 ) ⋯ ( s u m + c ) (sum+1)(sum+2)\cdots(sum+c) ( s u m + 1 ) ( s u m + 2 ) ⋯ ( s u m + c ) 。
现在相当于是要求将整个集合划分为 k k k 个非空子集后,每个子集的权值乘积之和。
但是单个子集的权值很复杂,不好刻画。考虑组合意义。
建出一个有 n 2 n^2 n 2 条边的有向图,w i , j = a j + [ j ≤ i ] w_{i,j}=a_j+[j\leq i] w i , j = a j + [ j ≤ i ] 。确定了一个集合划分后,每个点向任意与其在同一集合内的点连边,求连出来的边的权值乘积之和。
这是因为显然每个点之间互相独立,而一个集合内编号第 i i i 小的点所能连的边的边权之和为 s u m + i sum+i s u m + i ,所以这个边权乘积之和就是答案!
由于每个点出度为一,所以连出来的图是个内向基环树森林,求出每个连通块数对应的方案数再乘上第二类斯特林数就是上面问题的答案。
考虑容斥环数。
对于没有钦定在环上的点,显然是随便连,贡献为 ∑ j = 1 n a j + i \sum_{j=1}^{n}a_j+i ∑ j = 1 n a j + i 。
对于环上的点,由于环的问题不好做,所以考虑将其断为链。
具体的,将 w i , j w_{i,j} w i , j 的形式变为 a j + 1 − [ i < j ] a_j+1-[i<j] a j + 1 − [ i < j ] ,现在问题变为每条边可以在 a j + 1 a_j+1 a j + 1 和 − [ i < j ] -[i<j] − [ i < j ] 里任选一个乘起来,问乘积之和。
由于要对答案有贡献,一个环不可能都选 − [ i < j ] -[i<j] − [ i < j ] ,所以所有选 a j + 1 a_j+1 a j + 1 的边就能把环断成链,显然每条链的编号大小一定递增,且一个链的链头权值为 a i + 1 a_i+1 a i + 1 ,后面的全是 − 1 -1 − 1 。
把这些链找出来,再随意组合成环后权值是不变的,这部分的贡献是第一类斯特林数。
考虑 dp。
设 f i , j f_{i,j} f i , j 表示考虑了编号为 1 ∼ i 1\sim i 1 ∼ i 的点,目前有 j j j 条链的贡献之和,转移为:f i , j ← f i − 1 , j ⋅ ( − j ) + f i − 1 , j − 1 ⋅ ( a i + 1 ) + f i − 1 , j ⋅ ( S + i ) f_{i,j}\leftarrow f_{i-1,j}\cdot(-j)+f_{i-1,j-1}\cdot(a_i+1)+f_{i-1,j}\cdot(S+i) f i , j ← f i − 1 , j ⋅ ( − j ) + f i − 1 , j − 1 ⋅ ( a i + 1 ) + f i − 1 , j ⋅ ( S + i ) 。
这三种转移分别代表 i i i 是接在原来的链的末尾,还是新开一条链,还是直接不钦定在环上。
做完 dp 后在反推回去即可。
时间复杂度:O ( n 2 ) O(n^2) O ( n 2 ) 。
Code1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 #include <bits/stdc++.h> const int kMaxN = 5e3 + 5 , kMod = 998244353 ;int n;int a[kMaxN], cnt[kMaxN];int fac[kMaxN], C[kMaxN][kMaxN], S1[kMaxN][kMaxN], S2[kMaxN][kMaxN];int f[kMaxN], g[kMaxN], h[kMaxN];int qpow (int bs, int64_t idx = kMod - 2 ) { int ret = 1 ; for (; idx; idx >>= 1 , bs = (int64_t )bs * bs % kMod) if (idx & 1 ) ret = (int64_t )ret * bs % kMod; return ret; }inline int add (int x, int y) { return (x + y >= kMod ? x + y - kMod : x + y); }inline int sub (int x, int y) { return (x >= y ? x - y : x - y + kMod); }inline void inc (int &x, int y) { (x += y) >= kMod ? x -= kMod : x; }inline void dec (int &x, int y) { (x -= y) < 0 ? x += kMod : x; }void prework (int n = 5e3 ) { fac[0 ] = S1[0 ][0 ] = S2[0 ][0 ] = C[0 ][0 ] = 1 ; for (int i = 1 ; i <= n; ++i) { fac[i] = 1ll * i * fac[i - 1 ] % kMod; C[i][0 ] = 1 ; for (int j = 1 ; j <= i; ++j) { C[i][j] = add (C[i - 1 ][j - 1 ], C[i - 1 ][j]); S1[i][j] = add (S1[i - 1 ][j - 1 ], 1ll * (i - 1 ) * S1[i - 1 ][j] % kMod); S2[i][j] = add (S2[i - 1 ][j - 1 ], 1ll * j * S2[i - 1 ][j] % kMod); } } }void dickdreamer () { std::cin >> n; int S = 0 , coef = 1 ; for (int i = 1 ; i <= n; ++i) std::cin >> a[i], S += a[i], coef = 1ll * coef * qpow (++cnt[a[i]]) % kMod; prework (); h[0 ] = 1 ; for (int i = 1 ; i <= n; ++i) { for (int j = i; ~j; --j) { h[j] = 1ll * (S + i - j) * h[j] % kMod; if (j) inc (h[j], 1ll * (a[i] + 1 ) * h[j - 1 ] % kMod); } } for (int i = 1 ; i <= n; ++i) for (int j = i; j <= n; ++j) inc (g[i], 1ll * h[j] * S1[j][i] % kMod); for (int i = n; i; --i) for (int j = n; j > i; --j) dec (g[i], 1ll * g[j] * C[j][i] % kMod); for (int i = 1 ; i <= n; ++i) for (int j = i; j <= n; ++j) inc (f[i], 1ll * g[j] * S2[j][i] % kMod); for (int i = 1 ; i <= n; ++i) f[i] = 1ll * f[i] * fac[i] % kMod; for (int i = n; i; --i) for (int j = n; j > i; --j) dec (f[i], 1ll * f[j] * C[j - 1 ][i - 1 ] % kMod); for (int i = 1 ; i <= n; ++i) std::cout << 1ll * f[i] * coef % kMod << '\n' ; }int32_t main () {#ifdef ORZXKR freopen ("in.txt" , "r" , stdin); freopen ("out.txt" , "w" , stdout);#endif std::ios::sync_with_stdio (0 ), std::cin.tie (0 ), std::cout.tie (0 ); int T = 1 ; while (T--) dickdreamer (); return 0 ; }