题目链接：http://www.lydsy.com/JudgeOnline/problem.php?id=1004
首先贴几个群论相关定义和引理。
群：G是一个集合，*是定义在这个集合上的一个运算。
如果满足以下性质，那么(G, *)是一个群。
1）封闭性，对于任意 a, b 属于 G， a * b 属于 G
2）结合律， a * b * c = a * (b * c)
3）单位元，在 G 中存在一个单位元 e ，使得对于 G 中任意的 a ， a * e = e * a = a
4）逆元， 对于 G 中任意的 a ，在 G 中存在 b ， 使得 a * b = e , 其中 b 叫做 a 的逆元
比如在模一个数意义下的整数加法就是一个群。
满足交换律的群是交换群，又叫阿贝尔群。
置换：可以用 (a1 -> b1, a2 -> b2, ... , an -> bn) 表示一个置换，其中 a1, ... , an 和 b1, ..., bn 都是1 到 n 的一个排列；
如果一些置换和它们的叠加运算构成一个群，就把它们叫做一个置换群。
在置换群中的 Burnside 引理：如果按照一定要求，要对1到n 的位置染色，那么本质不同的染色方案数为置换群中每个置换的不动染色方案数的平均数。
来解释以下，本质不同的染色方案是指，两个染色方案不能通过置换群中的任意置换变换使其相同，那么它们就是本质不同的。
某个置换的不动染色方案数是指，用这个置换变换之后没有发生变化的染色方案。
那么我们就是要求出每个置换的不动染色方案数。
Polya定理，如果是用k种颜色染色，那么对于置换 P 来说，它的不动染色方案数为 k^(L(P)), 其中L(P)为置换P的循环节数。
由于这道题中有颜色数目的限制，我们不能直接套Polya定理，但是可以把每个循环节当作一种物品，用背包求方案数。
#include<cstdio>
#include<cstring>
#include<algorithm>
using namespace std;
int inline readint(){
int Num;char ch;
while((ch=getchar())<''||ch>'');Num=ch-'';
while((ch=getchar())>=''&&ch<='') Num=Num*+ch-'';
return Num;
}
int Sr,Sb,Sg,n,m,mod;
int quick_pow(int x,int y){
int base=x,sum=;
while(y){
if(y&) sum=sum*base%mod;
base=base*base%mod;
y>>=;
}
return sum;
}
int fm[][],cnt[],f[/][/][/];
bool vis[];
int dp(int x){
int tot=;
memset(vis,false,sizeof(vis));
memset(cnt,,sizeof(cnt));
memset(f,,sizeof(f));
for(int i=;i<=n;i++){
if(!vis[i]){
int j=i;
tot++;
while(!vis[fm[x][j]]){
vis[fm[x][j]]=true;
cnt[tot]++;
j=fm[x][j];
}
}
}
f[][][]=;
for(int i=;i<=tot;i++)
for(int j=Sr;j>=;j--)
for(int k=Sb;k>=;k--)
for(int t=Sg;t>=;t--){
if(j>=cnt[i]) f[j][k][t]=(f[j][k][t]+f[j-cnt[i]][k][t])%mod;
if(k>=cnt[i]) f[j][k][t]=(f[j][k][t]+f[j][k-cnt[i]][t])%mod;
if(t>=cnt[i]) f[j][k][t]=(f[j][k][t]+f[j][k][t-cnt[i]])%mod;
}
return f[Sr][Sb][Sg];
}
int main(){
Sr=readint();
Sb=readint();
Sg=readint();
m=readint();
mod=readint();
n=Sr+Sb+Sg;
for(int i=;i<=m;i++)
for(int j=;j<=n;j++)
fm[i][j]=readint();
m++;
for(int i=;i<=n;i++) fm[m][i]=i;
int ans=;
for(int i=;i<=m;i++) ans+=dp(i);
ans=ans*quick_pow(m,mod-)%mod;
printf("%d\n",ans);
return ;
}