Description
a180285幸运地被选做了地球到喵星球的留学生。他发现喵星人在上课前的点名现象非常有趣。
假设课堂上有N个喵星人，每个喵星人的名字由姓和名构成。喵星球上的老师会选择M个串来点名，每次读出一个串的时候，如果这个串是一个喵星人的姓或名的子串，那么这个喵星人就必须答到。
然而，由于喵星人的字码过于古怪，以至于不能用ASCII码来表示。为了方便描述，a180285决定用数串来表示喵星人的名字。
假设课堂上有N个喵星人，每个喵星人的名字由姓和名构成。喵星球上的老师会选择M个串来点名，每次读出一个串的时候，如果这个串是一个喵星人的姓或名的子串，那么这个喵星人就必须答到。
然而，由于喵星人的字码过于古怪，以至于不能用ASCII码来表示。为了方便描述，a180285决定用数串来表示喵星人的名字。
现在你能帮助a180285统计每次点名的时候有多少喵星人答到，以及M次点名结束后每个喵星人答到多少次吗？
Input
现在定义喵星球上的字符串给定方法：
先给出一个正整数L，表示字符串的长度，接下来L个整数表示字符串的每个字符。
输入的第一行是两个整数N和M。
接下来有N行，每行包含第i 个喵星人的姓和名两个串。姓和名都是标准的喵星球上的
字符串。
接下来有M行，每行包含一个喵星球上的字符串，表示老师点名的串。
Output
对于每个老师点名的串输出有多少个喵星人应该答到。
然后在最后一行输出每个喵星人被点到多少次。
Sample Input
2 3
6 8 25 0 24 14 8 6 18 0 10 20 24 0
7 14 17 8 7 0 17 0 5 8 25 0 24 0
4 8 25 0 24
4 7 0 17 0
4 17 0 8 25
6 8 25 0 24 14 8 6 18 0 10 20 24 0
7 14 17 8 7 0 17 0 5 8 25 0 24 0
4 8 25 0 24
4 7 0 17 0
4 17 0 8 25
Sample Output
2
1
0
1 2
【提示】
事实上样例给出的数据如果翻译成地球上的语言可以这样来看
2 3
izayoi sakuya
orihara izaya
izay
hara
raiz
HINT
【数据范围】
对于30%的数据，保证：
1<=N,M<=1000，喵星人的名字总长不超过4000，点名串的总长不超过2000。
对于100%的数据，保证：
1<=N<=20000，1<=M<=50000，喵星人的名字总长和点名串的总长分别不超过100000，保证喵星人的字符串中作为字符存在的数不超过10000。
这几天状态真的很差……可能还没完全好，体力很差……
这个先写的后缀数组，发现不会写第二问
转写自动机
自动机做法是对询问串建自动机
然后来用名字来跑
跑的时候记录访问了哪些节点、访问了几个末尾节点……
这个怎么弄呢……
我首先想到的是把qfail树建出来，然后用dfs序来搞，但是这样会重复……
…………
其实每个节点往上一直找qfail找到访问过的或者根节点就停就好了……就是把有关的节点全访问一遍
觉得很暴力……但似乎是很难被卡的
program bzoj2754;
const
maxn=5000000;
var
e,w,o,len,n,m,i,j,k,tot:longint;
dl,s:array [0..300001] of longint;
ans:array [0..20001] of longint;
q:array [0..50001] of longint;
fin:array [0..40001] of longint;
count,anti,qfail,flag,p,next,root:array [0..100001] of longint;
u,v,f:array [0..maxn] of longint;
function hash (x,y:longint):longint;inline;
var
i:longint;
begin
i:=(int64(x)*y+543*x+72*y) mod maxn;
while (u[i]<>-1)and((u[i]<>x)or(v[i]<>y)) do
begin
inc(i);
if i=maxn then i:=0;
end;
exit(i);
end;
procedure putdown (now,o:longint);
begin
if now=0 then exit;
if flag[now]=o then exit;
flag[now]:=o;
inc(count[now]);
ans[o]:=ans[o]+p[now];
putdown(qfail[now],o);
end;
begin
fillchar(u,sizeof(u),255);
read(n,m);
for i:=1 to n do
begin
read(k);
for j:=1 to k do
begin
inc(tot);
read(s[tot]);
end;
fin[i*2-1]:=tot;
read(k);
for j:=1 to k do
begin
inc(tot);
read(s[tot]);
end;
fin[i*2]:=tot;
end;
len:=tot;
tot:=0;
for i:=1 to m do
begin
k:=0;
read(o);
for j:=1 to o do
begin
read(w);
e:=hash(k,w);
if u[e]=-1 then
begin
u[e]:=k;
v[e]:=w;
inc(tot);
f[e]:=tot;
anti[tot]:=w;
next[tot]:=root[k];
root[k]:=tot;
end;
k:=f[e];
end;
inc(p[k]);
q[i]:=k;
end;
tot:=0;
i:=root[0];
while i<>0 do
begin
inc(tot);
dl[tot]:=i;
i:=next[i];
end;
i:=1;
while i<=tot do
begin
j:=root[dl[i]];
while j<>0 do
begin
k:=qfail[dl[i]];
while (k<>0)and(u[hash(k,anti[j])]=-1) do k:=qfail[k];
inc(tot);
dl[tot]:=j;
qfail[j]:=f[hash(k,anti[j])];
j:=next[j];
end;
inc(i);
end;
for i:=1 to n do
begin
k:=0;
for j:=fin[i*2-2]+1 to fin[i*2-1] do
begin
while (k<>0)and(u[hash(k,s[j])]=-1) do k:=qfail[k];
k:=f[hash(k,s[j])];
putdown(k,i);
end;
k:=0;
for j:=fin[i*2-1]+1 to fin[i*2] do
begin
while (k<>0)and(u[hash(k,s[j])]=-1) do k:=qfail[k];
k:=f[hash(k,s[j])];
putdown(k,i);
end;
end;
for i:=1 to m do
writeln(count[q[i]]);
for i:=1 to n do
begin
write(ans[i]);
if i<>n then write(' ');
end;
writeln;
end.