bzoj 1004 [HNOI2008]Cards

http://www.elijahqi.win/archives/3407
Description
　　小春现在很清闲,面对书桌上的N张牌,他决定给每张染色,目前小春只有3种颜色:红色,蓝色,绿色.他询问Sun有
多少种染色方案,Sun很快就给出了答案.进一步,小春要求染出Sr张红色,Sb张蓝色,Sg张绝色.他又询问有多少种方
案,Sun想了一下,又给出了正确答案. 最后小春发明了M种不同的洗牌法,这里他又问Sun有多少种不同的染色方案.
两种染色方法相同当且仅当其中一种可以通过任意的洗牌法(即可以使用多种洗牌法,而每种方法可以使用多次)洗
成另一种.Sun发现这个问题有点难度,决定交给你,答案可能很大,只要求出答案除以P的余数(P为质数).

Input
　　第一行输入 5 个整数：Sr,Sb,Sg,m,p(m<=60,m+1 < p< 100)。n=Sr+Sb+Sg。
接下来 m 行，每行描述一种洗牌法，每行有 n 个用空格隔开的整数 X1X2…Xn，恰为 1 到 n 的一个排列，
表示使用这种洗牌法，第 i位变为原来的 Xi位的牌。输入数据保证任意多次洗牌都可用这 m种洗牌法中的一种代
替，且对每种洗牌法，都存在一种洗牌法使得能回到原状态。

Output
　　不同染法除以P的余数

Sample Input
1 1 1 2 7
2 3 1
3 1 2
Sample Output
2
HINT
　　有2 种本质上不同的染色法RGB 和RBG，使用洗牌法231 一次可得GBR 和BGR，使用洗牌法312 一次 可得BRG

和GRB。

100%数据满足 Max{Sr,Sb,Sg}<=20。

考虑用burnside引理&polya

首先dfs一下 算出有多少个置换的循环

那么问题转化为要用sb,sr,sg三种数数量的牌填满所有的循环

并且一个循环里都是相同的颜色 那么dp一下即可 然后累加起来最后/(m+1)即可

注意因为这个牌的置换相当于应该是一个置换群 需要存在单位元所以最后需要我们单独补充一个单位元做一下即可

#include<cstdio>
#include<cctype>
#include<cstring>
#include<algorithm>
#define ll long long
using namespace std;
inline char gc(){
    static char now[1<<16],*S,*T;
    if(T==S){T=(S=now)+fread(now,1,1<<16,stdin);if (T==S) return EOF;}
    return *S++;
}
inline int read(){
    int x=0,f=1;char ch=gc();
    while(!isdigit(ch)) {if (ch=='-') f=-1;ch=gc();}
    while(isdigit(ch)) x=x*10+ch-'0',ch=gc();
    return x*f;
}
const int N=70;
int dp[22][22][22],size[N],bp[N],tot,ans,sr,sb,sg,m,mod,n,tr[N];bool mark[N],mark1[N];
inline int ksm(int b,int t){static int tmp;b%=mod;
    for (tmp=1;t;b=b*b%mod,t>>=1) if (t&1) tmp=tmp*b%mod;return tmp;
}
inline void dfs(int x){
    mark[x]=1;size[x]=1;
    if (mark[tr[x]]) return;dfs(tr[x]);
    size[x]+=size[tr[x]];
}
inline int inc(int x,int v){x+=v;return x>=mod?x-mod:x;}
inline void Dp(){
    memset(dp,0,sizeof(dp));dp[0][0][0]=1;
    for (int owo=1;owo<=tot;++owo)
        for (int i=sr;~i;--i)
            for (int j=sb;~j;--j)
                for (int k=sg;~k;--k){
                    if (i>=bp[owo]) dp[i][j][k]=inc(dp[i][j][k],dp[i-bp[owo]][j][k]);
                    if (j>=bp[owo]) dp[i][j][k]=inc(dp[i][j][k],dp[i][j-bp[owo]][k]);
                    if (k>=bp[owo]) dp[i][j][k]=inc(dp[i][j][k],dp[i][j][k-bp[owo]]);
                }
}
int main(){
    freopen("bzoj1004.in","r",stdin);
    sr=read();sb=read();sg=read();m=read();mod=read();n=sr+sb+sg;int ans=0;
    for (int i=1;i<=m;++i){
        for (int i=1;i<=n;++i) tr[i]=read();memset(mark,0,sizeof(mark));memset(mark1,0,sizeof(mark1));
        memset(size,0,sizeof(size));for (int i=1;i<=n;++i) if (!mark[i]) dfs(i),mark1[i]=1;
        tot=0;for (int i=1;i<=n;++i) if (mark1[i]) bp[++tot]=size[i];Dp();ans=inc(ans,dp[sr][sb][sg]);
    }++m;tot=n;for (int i=1;i<=n;++i) bp[i]=1;Dp();ans=inc(ans,dp[sr][sb][sg]);
    ans=ans*ksm(m,mod-2)%mod;printf("%d\n",ans);
    return 0;
}