[BJOI2017]魔法咒语
Description
Chandra 是一个魔法天才。
从一岁时接受火之教会洗礼之后， Chandra 就显示出对火元素无与伦比的亲和力，轻而易举地学会种种晦涩难解的法术。这也多亏 Chandra 有着常人难以企及的语言天赋，让她能轻松流利地说出咒语中那些极其拗口的魔法词汇。
直到十四岁，开始学习威力强大的禁咒法术时， Chandra 才遇到了障碍。
根据火之魔法规则，禁咒的构成单位是 N 个基本词汇。施法时只要凝聚精神力，说出一段用这些词语组成的长度恰好等于 L 的语言，就能释放威力超乎想象的火法术。过去的魔法师们总结了几种表达起来最连贯的组合方式，方便施法者以最快语速完成法术。
但具有魔法和语言双重天才的 Chandra 不满足于这几种流传下来的禁咒，因为她可以毫无困难地说出普通人几乎不可能表达的禁咒语句。然而，在实际施法时， Chandra 发现有些自创禁咒念出后不但没有预期效果，反而会使自己的精神力迅速枯竭，十分难受。
这个问题令 Chandra 万分不解。她大量阅读典籍，到处走访魔法学者，并且不顾精神折磨一次又一次尝试新咒语，希望找出问题的答案。
很多年过去了，在一次远古遗迹探险中， Chandra 意外闯进了火之神艾利克斯的不知名神殿。根据岩土特征分析，神殿应该有上万年的历史，这是极其罕见的。 Chandra 小心翼翼地四处探索，沿着魔力流动来到一间密室。她看见密室中央悬浮着一本书籍。在魔法保护下书籍状况完好。精通上古语言的 Chandra 读过此书，终于解开了多年的困惑。
禁咒法术之所以威力强大，是因为咒语借用了火之神艾利克斯的神力。这本书里记载了艾利克斯生平忌讳的 M 个词语，比如情敌的名字、讨厌的植物等等。使用禁咒法术时，如果语言中含有任何忌讳词语，就会触怒神力而失效，施法者也一并遭受惩罚。
例如，若 ”banana” 是唯一的忌讳词语， “an”、 ”ban”、 ”analysis” 是基本词汇，禁咒长度须是 11， 则“bananalysis” 是无效法术， ”analysisban”、 ”anbanbanban”是两个有效法术。注意：一个基本词汇在禁咒法术中可以出现零次、 一次或多次；只要组成方式不同就认为是不同的禁咒法术，即使书写形式相同。
谜题破解， Chandra 心情大好。她决定计算一共有多少种有效的禁咒法术。
由于答案可能很大，你只需要输出答案模 1,000,000,007的结果。
Input
第一行，三个正整数 N, M, L。
接下来 N 行，每行一个只含小写英文字母的字符串，表示一个基本词汇。
接下来 M 行，每行一个只含小写英文字母的字符串，表示一个忌讳词语。
对于60%的数据1<=N,M<=50,L<=100
对于另40%数据基本词汇长度不超过2,L<=10^8
Output
仅一行，一个整数，表示答案（模 10^9+7）。
Sample Input
4 2 10
boom
oo
ooh
bang
ob
mo
Sample Output
14
BJOI的题感觉就是疯狂分类讨论（一题更比两题强）
首先考虑60%的数据，对禁忌串建立AC自动机，然后设\(f[i][j]\)表示长度为\(i\)，匹配到AC自动机的第\(j\)个位置的方案数，转移的时候则需要枚举基本词汇，判断其从\(j\)开始匹配时是否会出现禁忌词汇，否则记匹配完后的位置为\(k\)，由\(f[i][j]\)转移到\(f[i+len][k]\)即可
考虑len=1的部分，那么\(f[i][j]\)必然会转移到\(f[i+1][k]\)，那么我们就可以用矩阵乘法加速转移，具体而言，如果\(f[i][j]\)可以转移到\(f[i+1][k]\)，则转移矩阵\(Tr[j][k]\)加1即可
考虑len=2的部分，类比一下我们求Fibonacci数列时使用的矩阵，同样的，我们记录两个信息，表示\(f[0],f[1]\)（第二维我就不写了），那么转移矩阵就自己画图弄一弄吧
/*program from Wolfycz*/
#include<cmath>
#include<cstdio>
#include<cstring>
#include<iostream>
#include<algorithm>
#define inf 0x7f7f7f7f
using namespace std;
typedef long long ll;
typedef unsigned int ui;
typedef unsigned long long ull;
inline char gc(){
static char buf[1000000],*p1=buf,*p2=buf;
return p1==p2&&(p2=(p1=buf)+fread(buf,1,1000000,stdin),p1==p2)?EOF:*p1++;
}
inline int frd(){
int x=0,f=1;char ch=gc();
for (;ch<'0'||ch>'9';ch=gc()) if (ch=='-') f=-1;
for (;ch>='0'&&ch<='9';ch=gc()) x=(x<<1)+(x<<3)+ch-'0';
return x*f;
}
inline int read(){
int x=0,f=1;char ch=getchar();
for (;ch<'0'||ch>'9';ch=getchar()) if (ch=='-') f=-1;
for (;ch>='0'&&ch<='9';ch=getchar()) x=(x<<1)+(x<<3)+ch-'0';
return x*f;
}
inline void print(int x){
if (x<0) putchar('-'),x=-x;
if (x>9) print(x/10);
putchar(x%10+'0');
}
const int N=1e2,Mod=1e9+7;
int n,m,L;
char S[N+10][N+10];
struct S1{
int trie[N+10][26],fail[N+10],tot,root;
bool End[N+10];
void insert(char *s){
int len=strlen(s),p=root;
for (int i=0;i<len;i++){
if (!trie[p][s[i]-'a']) trie[p][s[i]-'a']=++tot;
p=trie[p][s[i]-'a'];
}
End[p]=1;
}
void make_fail(){
static int h[N+10];
int head=1,tail=0;
for (int i=0;i<26;i++) if (trie[root][i]) h[++tail]=trie[root][i];
for (;head<=tail;head++){
int Now=h[head];
End[Now]|=End[fail[Now]];
for (int i=0;i<26;i++){
if (trie[Now][i]){
int son=trie[Now][i];
fail[son]=trie[fail[Now]][i];
h[++tail]=son;
}else trie[Now][i]=trie[fail[Now]][i];
}
}
}
int check(char *s,int Fir){
int len=strlen(s),p=Fir;
for (int i=0;i<len;i++){
p=trie[p][s[i]-'a'];
if (End[p]) return -1;
}
return p;
}
}AC;//Aho-Corasick automaton
namespace DP{
int f[N+10][N+10];
void main(){
f[0][0]=1;
for (int i=0;i<L;i++){
for (int j=0;j<=AC.tot;j++){
if (!f[i][j]) continue;
for (int k=1;k<=n;k++){
int tmp=AC.check(S[k],j),len=strlen(S[k]);
if (!~tmp||i+len>L) continue;
f[i+len][tmp]=(f[i+len][tmp]+f[i][j])%Mod;
}
}
}
int Ans=0;
for (int i=0;i<=AC.tot;i++) Ans=(Ans+f[L][i])%Mod;
printf("%d\n",Ans);
}
};
namespace Matrix{
int T;
struct Matrix{
int v[(N<<1)+10][(N<<1)+10];
Matrix(){memset(v,0,sizeof(v));}
void init(){for (int i=0;i<T;i++) v[i][i]=1;}
}Trans;
Matrix operator *(const Matrix &x,const Matrix &y){
Matrix z;
for (int i=0;i<T;i++)
for (int j=0;j<T;j++)
for (int k=0;k<T;k++)
z.v[i][k]=(1ll*x.v[i][j]*y.v[j][k]+z.v[i][k])%Mod;
return z;
}
Matrix mlt(Matrix a,int b){
Matrix res; res.init();
for (;b;b>>=1,a=a*a) if (b&1) res=res*a;
return res;
}
void main(){
Matrix Ans; Ans.v[0][0]=1; T=(AC.tot<<1)+2;
for (int i=0;i<=AC.tot;i++) Trans.v[AC.tot+1+i][i]=1;
for (int i=0;i<=AC.tot;i++){
for (int j=1;j<=n;j++){
int tmp=AC.check(S[j],i),len=strlen(S[j]);
if (!~tmp) continue;
if (len==1){
Trans.v[i+AC.tot+1][tmp+AC.tot+1]++;
if (!i) Ans.v[0][tmp+AC.tot+1]++;
}else Trans.v[i][tmp+AC.tot+1]++;
}
}
Ans=Ans*mlt(Trans,L);
int res=0;
for (int i=0;i<=AC.tot;i++) res=(res+Ans.v[0][i])%Mod;
printf("%d\n",res);
}
};
int main(){
n=read(),m=read(),L=read();
for (int i=1;i<=n;i++) scanf("%s",S[i]);
for (int i=1;i<=m;i++){
static char s[N+10];
scanf("%s",s);
AC.insert(s);
}
AC.make_fail();
if (L<=1e2){
DP::main();
return 0;
}
Matrix::main();
return 0;
}
