(擴充套件)盧卡斯定理
盧卡斯定理
結論
\[{n \choose m} \equiv {\lfloor \frac{n}{p} \rfloor \choose \lfloor \frac{m}{p} \rfloor} \cdot {n \bmod p \choose m \bmod p} \pmod p \]其中 \(p\) 為質數。
證明
引理 \(1\)
\[{p \choose n} \equiv \frac{p!}{(p - n)! \cdot n!} \pmod p \]分子含有質因數 \(p\),則當分母不含有質因數 \(p\) 時原式的值為 \(0\)
否則,當且僅當 \(n = 0\) 或 \(n = p\)
引理 \(2\)
根據二項式定理知
\[(a + b)^p = {p \choose i} \sum\limits_{i = 0}^p a^ib^{p - i} \]根據引理 \(1\) 知 \({p \choose i}\) 在模 \(p\) 意義下不同餘於 \(0\),當且僅當 \(i = 0\) 或 \(i = p\),且此時 \({p \choose i}\) 在模 \(p\) 意義下同餘於 \(1\)
\[\begin{aligned} (a + b)^p &= {p \choose i} \sum\limits_{i = 0}^p a^i b^{n - i} &\pmod p \\ &\equiv 1 \cdot a^0b^p + 1 \cdot a^pb^0 &\pmod p \\ &\equiv a^p + b^p &\pmod p \end{aligned} \]則有
因為 \(p\) 是質數,由費馬小定理知
\[a^{p - 1} \equiv 1 \pmod p, b^{p - 1} \equiv 1 \pmod p \]所以
\[a^p x^p + b^p y^p \equiv ax^p + by^p \pmod p \]證明
根據二項式定理知 \((x + 1)^n\) 中的項 \(x^m\) 的係數模 \(p\) 等於 \({n \choose m} \bmod p\)
根據引理 \(2\) 知
\[\begin{aligned} (x + 1)^n &\equiv (x + 1)^{p \lfloor \frac{n}{p} \rfloor} \cdot (x + 1)^{n\ \bmod\ p} &\pmod p\\ &\equiv (x^p + 1^p)^{\lfloor \frac{n}{p} \rfloor} \cdot (x + 1)^{n\ \bmod\ p} &\pmod p\\ &\equiv (x^p + 1)^{\lfloor \frac{n}{p} \rfloor} \cdot (x + 1)^{n\ \bmod\ p} &\pmod p \end{aligned} \]易知:
- \((x^p + 1)^{\lfloor \frac{n}{p} \rfloor}\) 中的各項的次數均為 \(p\) 的倍數
- \((x + 1)^{n\ \bmod\ p}\) 中的各項的次數最大為 \(p - 1\)
設 \(m = pq + r\),其中 \(r < q\),則得到 \(x^m\) 只能在 \((x^p + 1)^{\lfloor \frac{n}{p} \rfloor}\) 中取到 \(q\) 個 \(x^p\),然後在 \((x + 1)^{n\ \bmod\ p}\) 中取到 \(r\) 個 \(x\)
又因為 \(q = \lfloor \frac{m}{p} \rfloor, r = m \bmod p\)
所以項 \(x^m\) 的係數模 \(p\) 等於
\[{\frac{n}{p} \choose q} \cdot {n \bmod p \choose r} \equiv {\lfloor \frac{n}{p} \rfloor \choose \lfloor \frac{m}{p} \rfloor} \cdot {n \bmod p \choose m \bmod p} \pmod p \]所以
\[{n \choose m} \equiv {\lfloor \frac{n}{p} \rfloor \choose \lfloor \frac{m}{p} \rfloor} \cdot {n \bmod p \choose m \bmod p} \pmod p \]總時間複雜度 \(\mathcal{O}(\sum\limits_{i = 1}^T n_i \cdot log_2n_i)\),其中 \(T\) 為詢問次數
模板
#include <cstdio>
using namespace std;
typedef long long ll;
const int maxn = 1e5 + 5;
int t, n, m, p;
ll pre[maxn], inv[maxn];
ll C(ll n, ll m, ll p)
{
if (m > n)
return 0;
return pre[n] * inv[m] % p * inv[n - m] % p;
}
ll lucas(ll n, ll m, ll p)
{
if (m == 0)
return 1;
return C(n % p, m % p, p) * lucas(n / p, m / p, p) % p;
}
int main()
{
scanf("%d", &t);
while (t--)
{
scanf("%d%d%d", &n, &m, &p);
pre[0] = pre[1] = 1;
inv[0] = inv[1] = 1;
for (int i = 2; i <= p; i++)
pre[i] = (pre[i - 1] * i) % p;
for (int i = 2; i <= p; i++)
inv[i] = (p - p / i) * inv[p % i] % p;
for (int i = 2; i <= p; i++)
inv[i] = (inv[i - 1] * inv[i]) % p;
printf("%lld\n", lucas(n + m, n, p));
}
return 0;
}
擴充套件盧卡斯定理
概念
求 \({n \choose m} \bmod p\) 的值,其中 \(p\) 不一定 為質數。
思想
將 \({n \choose m}\) 分解為 \(\prod\limits_{i = 1}^n p_i^{a_i}\) 的形式,因為 \(p_i^{a_i}\) 兩兩互質,所以可以分別求出 \({n \choose m} \bmod p_i^{a_i}\) 的值,最後再通過中國剩餘定理合併。
有 \({n \choose m} = \frac{n!}{m! (n - m)!}\),則問題轉化為求 \(\frac{n!}{m! (n - m)!} \bmod p\) 的值。
不妨提出 \(\frac{n!}{m! (n - m)!}\) 中所有含有質因子 \(p\) 的項,得 \(n! = p^{\lfloor \frac{n}{p} \rfloor } \cdot \lfloor \frac{n}{p} \rfloor! \cdot \prod\limits_{p \nmid i}^n i\)
其中 \(p^{\lfloor \frac{n}{p} \rfloor}\) 可以用快速冪求,\(\lfloor \frac{n}{p} \rfloor!\) 可以遞迴求解,邊界條件為 \(0! \bmod p = 1\)
易知 \(\prod\limits_{p \nmid i}^n i\) 中的項的乘積在模 \(p_i^{a_i}\) 意義下有長度小於 \(p_i^{a_i}\) 的迴圈節,例如:
\[n = 19, p_i = 3, a_i = 2 \\ \begin{aligned} 19! \bmod 3^2 &= 1 \times 2 \times 4 \times 5 \times 7 \times 8 \times 10 \times 11 \times 13 \times 14 \times 16 \times 17 \times 19 \times 3^6 \times 6! \\ &\equiv (1 \times 2 \times 4 \times 5 \times 7 \times 8) \times (10 \times 11 \times 13 \times 14 \times 16 \times 17) \times 19 \times 3^6 \times 6! &\pmod 9\\ &\equiv (1 \times 2 \times 4 \times 5 \times 7 \times 8)^2 \times 19 \times 3^6 \times 6! &\pmod 9 \end{aligned} \]所以可以暴力求第一個迴圈節,再通過快速冪求出所有迴圈節的乘積,最後暴力處理餘下的項即可。
模板
#include <cstdio>
using namespace std;
typedef long long ll;
ll n, m, p;
ll exgcd(ll a, ll b, ll &x, ll &y)
{
if (b == 0)
{
x = 1, y = 0;
return a;
}
exgcd(b, a % b, x, y);
ll t = x;
x = y;
y = t - a / b * y;
}
ll fpow(ll a, ll b, ll p)
{
ll res = 1;
while (b)
{
if (b & 1)
res = res * a % p;
a = a * a % p;
b >>= 1;
}
return res;
}
ll inv(ll a, ll p)
{
ll x, y;
exgcd(a, p, x, y);
x = (x % p + p) % p;
return x;
}
ll fac(ll n, ll p, ll k)
{
if (n == 0)
return 1;
ll res = 1;
for (int i = 2; i <= k; i++)
if (i % p != 0)
res = res * i % k;
res = fpow(res, n / k, k);
for (int i = 2; i <= n % k; i++)
if (i % p != 0)
res = res * i % k;
return res * fac(n / p, p, k) % k;
}
ll C(ll n, ll m, ll p, ll k)
{
if (n < m)
return 0;
ll a = fac(n, p, k), b = fac(m, p, k), c = fac(n - m, p, k);
ll cnt = 0;
for (ll i = p; i <= n; i *= p)
cnt += n / i;
for (ll i = p; i <= m; i *= p)
cnt -= m / i;
for (ll i = p; i <= n - m; i *= p)
cnt -= (n - m) / i;
return a * inv(b, k) % k * inv(c, k) % k * fpow(p, cnt, k) % k;
}
ll crt(ll n, ll mod)
{
return n * (p / mod) % p * inv(p / mod, mod) % p;
}
ll exlucas()
{
ll t = p, ans = 0;
for (ll i = 2; i * i <= t; i++)
{
if (t % i == 0)
{
ll val = 1;
while (t % i == 0)
val *= i, t /= i;
ans = (ans + crt(C(n, m, i, val), val)) % p;
}
}
if (t > 1)
ans = (ans + crt(C(n, m, t, t), t)) % p;
return ans;
}
int main()
{
scanf("%lld%lld%lld", &n, &m, &p);
printf("%lld\n", exlucas());
return 0;
}