bzoj2754

Description

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

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.