jzoj 5846.【省选模拟2018.8.24】Sequence 任意模数fft

Description

期末考试结束了, 小 C 所在的班级要进行考试成绩的排名。
排名规则是这样的: 对于成绩为 $a_i$ 的同学, 他的排名等于成绩严格小于 $a_i$ 的同学的成绩 $a_j$ 组成的集合 {aj} 的大小。
现在小 C 想知道, 如果有 $N$ 个人参加了考试, 一共有多少种可能的排名结果。
两种排名结果不同当且仅当至少有一个人在两次排名中排名不同。

Input

一行一个正整数 N .

Output

输出一行一个整数, 表示答案对 $1004535809$ 取模的结果.

Sample Input

4

Sample Output

75

Data Constraint

对于 15% 的数据, $N ≤ 5$。
对于 30% 的数据, $N ≤ 50$。
对于 45% 的数据, $N ≤ 500$。
对于 60% 的数据, $N ≤ 5000$。
对于 100% 的数据, $N ≤ 100000$。

分析：
设$f[i][j]$为选了$i$个数，有$j$种名次的方案数。有一个很显然的dp式，

$$f[i][j]=(f[i-1][j-1]+f[i-1][j])*j$$
答案是 $\sum_{i=1}^{n}f[n][i]$。
然后一直想优化。后面改变了思路，问题就解决了。
$f[n][m]$相当于把 $n$个球（每个人）放到$m$个盒子（排名）里，不能为空。
这个方案数就是 $m!*S(n,m)$，其中 $S(n,m)$是第二类斯特林数。
所以，
$$ans=\sum_{i=1}^{n}f[n][i]$$
$$=\sum_{i=1}^{n}i!*\frac{1}{i!}\sum_{k=0}^{i}(-1)^k*\binom{i}{k}*(i-k)^n$$
$$=\sum_{i=1}^{n}i!*\sum_{k=0}^{n}\frac{(-1)^k}{k!}*\frac{(i-k)^n}{(i-k)!}$$
后面直接卷积即可，跑出来后枚举 i i <script type="math/tex" id="MathJax-Element-37">i</script>统计答案。

代码：

#include <iostream>
#include <cstdio>
#include <cmath>
#define LL long long

const LL p=1004535809;
const int maxn=300007;
const double pi=acos(-1);

using namespace std;

struct rec{
    double x,y;
};

rec operator +(rec a,rec b)
{
    return (rec){a.x+b.x,a.y+b.y};
}

rec operator -(rec a,rec b)
{
    return (rec){a.x-b.x,a.y-b.y};
}

rec operator *(rec a,rec b)
{
    return (rec){a.x*b.x-a.y*b.y,a.x*b.y+a.y*b.x};
}

rec operator !(rec a)
{
    return (rec){a.x,-a.y};
}

LL n,ans,len;
rec a[maxn],b[maxn],w[maxn],dfta[maxn],dftb[maxn],dftc[maxn],dftd[maxn];
LL bit[maxn],jc[maxn],inv[maxn],f[maxn],g[maxn],r[maxn];

LL power(LL x,LL y)
{
    if (y==1) return x;
    LL c=power(x,y/2);
    c=(c*c)%p;
    if (y%2) c=(c*x)%p;
    return c; 
}

void fft(rec *a,LL f)
{
    for (LL i=0;i<len;i++)
    {
        if (i<r[i]) swap(a[i],a[r[i]]);
    }
    w[0]=(rec){1,0};
    for (LL i=2;i<=len;i*=2)
    {
        rec wn=(rec){cos(2*pi/i),f*sin(2*pi/i)};
        for (LL j=i/2;j>=0;j-=2) w[j]=w[j/2];
        for (LL j=1;j<i/2;j+=2) w[j]=w[j-1]*wn;
        for (LL j=0;j<len;j+=i)
        {
            for (LL k=0;k<i/2;k++)
            {
                rec u=a[j+k],v=a[j+k+i/2]*w[k];
                a[j+k]=u+v;
                a[j+k+i/2]=u-v;
            }
        }
    }
}

void init(LL len)
{
    LL k=trunc(log(len+0.5)/log(2));
    for (LL i=0;i<len;i++)
    {
        r[i]=(r[i>>1]>>1)|((i&1)<<(k-1));
    }
}

void FFT(LL *x,LL *y,LL *z,LL n,LL m)
{   
    len=1;
    while (len<(n+m-1)) len*=2;
    init(len);
    for (LL i=0;i<len;i++)
    {
        LL A,B;
        if (i<n) A=x[i]%p; else A=0;
        if (i<m) B=y[i]%p; else B=0;
        a[i]=(rec){A>>15,A&32767};
        b[i]=(rec){B>>15,B&32767};
    }
    fft(a,1); fft(b,1);
    for (LL i=0;i<len;i++)
    {
        LL j=(len-i)&(len-1);
        rec da,db,dc,dd;
        da=(a[i]+(!a[j]))*(rec){0.5,0};
        db=(a[i]-(!a[j]))*(rec){0,-0.5};
        dc=(b[i]+(!b[j]))*(rec){0.5,0};
        dd=(b[i]-(!b[j]))*(rec){0,-0.5};
        dfta[i]=da*dc;
        dftb[i]=da*dd;
        dftc[i]=db*dc;
        dftd[i]=db*dd;
    }
    for (LL i=0;i<len;i++)
    {
        a[i]=dfta[i]+dftb[i]*(rec){0,1};
        b[i]=dftc[i]+dftd[i]*(rec){0,1};
    }
    fft(a,-1); fft(b,-1);
    for (LL i=0;i<len;i++)
    {
        LL da,db,dc,dd;
        da=(LL)(a[i].x/len+0.5)%p;
        db=(LL)(a[i].y/len+0.5)%p;
        dc=(LL)(b[i].x/len+0.5)%p;
        dd=(LL)(b[i].y/len+0.5)%p;
        z[i]=((da<<30)%p+((db+dc)<<15)%p+dd)%p;
    }
}

int main()
{
    freopen("sequence.in","r",stdin);
    freopen("sequence.out","w",stdout);
    scanf("%lld",&n);
    jc[0]=1;  
    for (LL i=1;i<=n;i++) jc[i]=(jc[i-1]*i)%p;
    inv[n]=power(jc[n],p-2);
    for (LL i=n;i>0;i--) inv[i-1]=(inv[i]*i)%p;
    g[0]=1; f[0]=1;
    for (LL i=0;i<=n;i++)
    {
        if (i%2) f[i]=(p-1)*inv[i]%p;
            else f[i]=inv[i];
        g[i]=power(i,n)*inv[i]%p;
    }   
    FFT(f,g,f,n+1,n+1);
    for (LL i=0;i<=n;i++) ans=(ans+jc[i]*f[i]%p)%p;
    printf("%lld",ans);
}