LOJ 3058 「HNOI2019」白兔之舞——单位根反演+MTT

题目：https://loj.ac/problem/3058

先考虑 n=1 怎么做。令 a 表示输入的 w[1][1] 。

　　\( ans_t = \sum\limits_{i=0}^{L}C_{L}^{i} a^i [ k|(i-t) ] \)

　　　　　\(= \frac{1}{k}\sum\limits_{i=0}^{L}C_{L}^{i} a^i \sum\limits_{j=0}^{k-1} w_{k}^{j*(i-t)} \)

　　　　　\(= \frac{1}{k}\sum\limits_{j=0}^{k-1}w_{k}^{-j*t} \sum\limits_{i=0}^{L}C_{L}^{i} a^i w_{k}^{i*j} \)

　　　　　\(= \frac{1}{k}\sum\limits_{j=0}^{k-1}w_{k}^{-j*t} (1+a*w_{k}^{j})^{L} \)

　　这样是 k² 的，就不会了……

　　考虑卷积。把 -j*t 拆成只和 j 有关的与只和 t 或者 t+j 、t-j 有关的。

　　注意到 \( j*t = C_{j+t}^{2} - C_{t}^{2} - C_{j}^{2} \) 。考虑 j*t 表示从 j 个里选一个、再从 t 个里选一个；表示成从 (j+t) 里选两个，再减去不合法的，即从 j 个里选了两个或从 t 个里选了两个。

　　\( ans_t = \frac{1}{k}\sum\limits_{j=0}^{k}w_{k}^{-\binom{j+t}{2}+\binom{j}{2}+\binom{t}{2}} (1+a*w_{k}^{j})^{L} \)

　　最后那个部分只和 j 有关。所以令 \( c_j = (1+a*w_{k}^{j})^{L} \)

　　　　　\(= \frac{ w_{k}^{\binom{t}{2}} }{k}\sum\limits_{j=0}^{k-1}w_{k}^{\binom{i}{2}} c_j * w_{k}^{-\binom{j+t}{2}} \)

　　然后可以卷积。

　　如果 n>1 ，用矩阵表示 “从 x 用 i 步走到 y ”的方案！仍然要乘组合数。

　　也就是除了 \( c_j = ( I + A*w_{k}^{j} )^{L} [x,y] \) 之外都没变。其中 A 是输入的矩阵，[x,y] 表示取矩阵的第 x 行第 y 列的值作为 \( c_j \) 。

　　给矩阵乘一个数字，是给其每个位置都乘。

　　不开 long double 会变成 0 分。

　　复习 MTT 。

#include<cstdio>
#include<cstring>
#include<algorithm>
#include<cmath>
#define db long double
#define ll long long
using namespace std;
const int N=(<<)+; const db pi2=acos(-)*;
int n,k,L,x,y,mod,G,bs,len,r[N],c[N],f[N],g[N],wn[N];
int upt(int x){while(x>=mod)x-=mod;while(x<)x+=mod;return x;}
int pw(int x,int k)
{int ret=;while(k){if(k&)ret=(ll)ret*x%mod;x=(ll)x*x%mod;k>>=;}return ret;}

struct cpl{
  db x,y;
  cpl(db x=,db y=):x(x),y(y) {}
  cpl operator+ (const cpl &b)const{return cpl(x+b.x,y+b.y);}
  cpl operator- (const cpl &b)const{return cpl(x-b.x,y-b.y);}
  cpl operator* (const cpl &b)const
  {return cpl(x*b.x-y*b.y,x*b.y+y*b.x);}
  cpl operator/ (const db &b)const{return cpl(x/b,y/b);}
}Ta[N],Tb[N],P[N],Q[N];
cpl cnj(cpl a){return cpl(a.x,-a.y);}
struct Mtr{
  int a[][];
  Mtr(){memset(a,,sizeof a);}
  Mtr operator* (const Mtr &b)const
  {
    Mtr c;
    for(int i=;i<n;i++)
      for(int k=;k<n;k++)
    for(int j=;j<n;j++)
      c.a[i][j]=(c.a[i][j]+(ll)a[i][k]*b.a[k][j])%mod;
    return c;
  }
  Mtr operator* (const int &b)const
  {
    Mtr c;
    for(int i=;i<n;i++)
      for(int j=;j<n;j++)c.a[i][j]=(ll)a[i][j]*b%mod;
    return c;
  }
  Mtr operator+ (const Mtr &b)const
  {
    Mtr c;
    for(int i=;i<n;i++)
      for(int j=;j<n;j++)c.a[i][j]=upt(a[i][j]+b.a[i][j]);
    return c;
  }
}A,tA,tA2,I;
namespace get_G{
  int p[],tot;
  void solve()
  {
    int k=mod-;
    for(int i=;i*i<=k;i++)
      if(k%i==){ p[++tot]=(mod-)/i; while(k%i==)k/=i;}
    for(int i=;;i++)
      {
    bool fg=;
    for(int j=;j<=tot;j++)
      if(pw(i,p[j])==){fg=;break;}
    if(!fg){G=i;break;}
      }
  }
}
void fft(cpl *a,bool fx)
{
  for(int i=;i<len;i++)
    if(i<r[i])swap(a[i],a[r[i]]);
  for(int R=;R<=len;R<<=)
    {
      cpl wn=cpl(cos(pi2/R),fx?-sin(pi2/R):sin(pi2/R));
      for(int i=,m=R>>;i<len;i+=R)
    {
      cpl w=cpl(,);
      for(int j=;j<m;j++,w=w*wn)
        {
          cpl x=a[i+j],y=w*a[i+m+j];
          a[i+j]=x+y; a[i+m+j]=x-y;
        }
    }
    }
  if(!fx)return;
  for(int i=;i<len;i++)a[i]=a[i]/len;
}
void MTT(int *a,int *b,int n,int m,int *c)
{
  bs=sqrt(mod); cpl ta,tb,tc,td;
  for(len=;len<=n+m;len<<=);
  for(int i=,j=len>>;i<len;i++)
    r[i]=(r[i>>]>>)+((i&)?j:);
  for(int i=;i<=n;i++) P[i]=cpl(a[i]/bs,a[i]%bs);
  for(int i=;i<=m;i++) Q[i]=cpl(b[i]/bs,b[i]%bs);
  fft(P,); fft(Q,);
  P[len]=P[]; Q[len]=Q[];
  for(int i=;i<len;i++)
    {
      ta=(P[i]+cnj(P[len-i]))*cpl(0.5,);
      tb=(P[i]-cnj(P[len-i]))*cpl(,-0.5);
      tc=(Q[i]+cnj(Q[len-i]))*cpl(0.5,);
      td=(Q[i]-cnj(Q[len-i]))*cpl(,-0.5);
      Ta[i]=ta*tc+ta*td*cpl(,);
      Tb[i]=tb*tc+tb*td*cpl(,);
    }
  fft(Ta,); fft(Tb,);
  for(int i=,lm=n+m,bs2=bs*bs;i<=lm;i++)
    {
      int a2=(ll)(Ta[i].x+0.5)%mod;//%mod
      int b2=(ll)(Ta[i].y+0.5)%mod;
      int c2=(ll)(Tb[i].x+0.5)%mod;
      int d2=(ll)(Tb[i].y+0.5)%mod;
      c[i]=((ll)a2*bs2+(ll)(b2+c2)*bs+d2)%mod;
    }
}
int main()
{
  scanf("%d%d%d%d%d%d",&n,&k,&L,&x,&y,&mod);
  get_G::solve(); x--; y--;
  for(int i=;i<n;i++)
    for(int j=;j<n;j++)scanf("%d",&A.a[i][j]);
  wn[]=; wn[]=pw(G,(mod-)/k);
  for(int i=;i<=k;i++)wn[i]=(ll)wn[i-]*wn[]%mod;//<=k
  for(int i=;i<n;i++)I.a[i][i]=;//
  for(int i=;i<k;i++)
    {
      tA=A*wn[i]+I; tA2=I; int tp=L;//tp=L not i!!!!!
      while(tp)
    { if(tp&)tA2=tA2*tA; tA=tA*tA; tp>>=;}
      c[i]=tA2.a[x][y];
    }
  for(int i=;i<k;i++)
    f[k--i]=(ll)wn[(ll)i*(i-)/%k]*c[i]%mod;
  for(int i=,lm=*(k-);i<=lm;i++)
    g[i]=wn[k-(ll)i*(i-)/%k];
  MTT(f,g,k-,*(k-),f); int inv=pw(k,mod-);
  for(int i=;i<k;i++)
    {
      int ans=(ll)wn[(ll)i*(i-)/%k]*inv%mod;
      ans=(ll)ans*f[k-+i]%mod; printf("%d\n",ans);
    }
  return ;
}