嘟嘟嘟

如果没有限制，而且必须选\(m\)件的话，就是隔板法\(C_{n + m - 1} ^ {m - 1}\)了。现在要选至多\(m\)件，那么就相当于新增一个板儿，分出的新的盒子表示“多出来的”，也就是说前\(m\)个盒子是选出来的宝具，这样就能满足至多\(m\)个的限制了，即\(C_{n + m} ^ {m}\)。
从公式这一角度来说，就是\(\sum _ {i = 0} ^ {n} C_ {i + m - 1} ^ {m - 1} = C_{n + m} ^ {m}\)，至于证明，在我的另一篇博客上有，题解：bzoj4403 序列统计。

现在我们加上了\(T\)这个限制。我一直在想，\(T\)这么小，显然可以\(2 ^ T\)暴力枚举，但那又有啥用咧？
后来某大佬的题解告诉我，你怎么就想不到容斥啊？
好像有道理，答案等于至少0个神器超过限制的方案数 - 至少1个神器超过限制方案数 + 至少3个超过限制 - ……而对于每一个方案数，我们先强制让这些神器选\(B_i + 1\)个，然后剩下的随便选，就是\(C_{n + m - \sum(B_i + 1)} ^ {m - \sum (B_i + 1)} = C_{n + m - \sum(B_i + 1)} ^ {n}\)。

最后因为模数小，上lucas。

#include<cstdio>
#include<iostream>
#include<cmath>
#include<algorithm>
#include<cstring>
#include<cstdlib>
#include<cctype>
#include<vector>
#include<stack>
#include<queue>
#include<assert.h>
using namespace std;
#define enter puts("")
#define space putchar(' ')
#define Mem(a, x) memset(a, x, sizeof(a))
#define In inline
typedef long long ll;
typedef double db;
const int INF = 0x3f3f3f3f;
const db eps = 1e-8;
const int maxn = 1e6 + 5;
In ll read()
{ll ans = 0;char ch = getchar(), last = ' ';while(!isdigit(ch)) last = ch, ch = getchar();while(isdigit(ch)) ans = (ans << 1) + (ans << 3) + ch - '0', ch = getchar();if(last == '-') ans = -ans;return ans;
}
In void write(ll x)
{if(x < 0) x = -x, putchar('-');if(x >= 10) write(x / 10);putchar(x % 10 + '0');
}
In void MYFILE()
{
#ifndef mrclrfreopen(".in", "r", stdin);freopen(".out", "w", stdout);
#endif
}int n, T, m, mod, b[20];ll fac[maxn], inv[maxn];
In ll inc(ll a, ll b) {return a + b < mod ? a + b : a + b - mod;}
In ll C(int n, int m)
{if(m > n) return 0;return fac[n] * inv[n - m] % mod * inv[m] % mod;
}
In ll lucas(int n, int m)
{ll ret = 1;for(; m; n /= mod, m /= mod)ret = ret * C(n % mod, m % mod) % mod;return ret;
}
In ll quickpow(ll a, ll b)
{ll ret = 1;for(; b; b >>= 1, a = a * a % mod)if(b & 1) ret = ret * a % mod;return ret;
}In void init()
{fac[0] = inv[0] = 1;for(int i = 1; i < mod; ++i) fac[i] = fac[i - 1] * i % mod;inv[mod - 1] = quickpow(fac[mod - 1], mod - 2);for(int i = mod - 2; i; --i) inv[i] = inv[i + 1] * (i + 1) % mod;
}int main()
{//MYFILE();n = read(), T = read(), m = read(), mod = read();for(int i = 1; i <= T; ++i) b[i] = read();init();ll ans = 0;for(int i = 0; i < (1 << T); ++i){int cnt = 0, tp = m;for(int j = 1; j <= T; ++j)if((i >> (j - 1)) & 1) ++cnt, tp -= b[j] + 1;ans = inc(ans, (cnt & 1) ? mod - lucas(n + tp, n) : lucas(n + tp, n));}write(ans), enter;return 0;
}