HDU2222 (AC自动机）

AC自动机模板题。

被卡内存了 死活A不掉。。

AC自动机参考教程:

　　http://www.cppblog.com/menjitianya/archive/2014/07/10/207604.html

 

const maxn=10008;
type arr=record
        next:array[0..26] of longint;
        fail,cnt:longint;
        end;
var cas:longint;
    s:array[0..maxn] of string;
    T:array[0..200000] of arr;
    id:array['a'..'z'] of longint;
    rt,tmp:longint;
    b:array[0..100000] of longint;
procedure ins(str:string);
var now,i:longint;
begin
    now:=rt;
    for i:=1 to length(str) do
    begin    
        if T[now].next[id[str[i]]]=0 then
        begin
            inc(tmp);
            T[now].next[id[str[i]]]:=tmp;
        end;
        now:=T[now].next[id[str[i]]];
    end;
    inc(T[now].cnt);
end;
procedure build;
var l,r,u,v,i:longint;
begin
    fillchar(b,sizeof(b),0);
    r:=0;
    for i:=1 to 26 do
        if T[rt].next[i]<>0 then
        begin
            T[T[rt].next[i]].fail:=rt;
            inc(r);
            b[r]:=T[rt].next[i];        
        end;
    l:=1; 
    while l<=r do
    begin
        u:=b[l];
        for i:=1 to 26 do
        begin
            v:=T[u].next[i];
            if v=0 then
                T[u].next[i]:=T[T[u].fail].next[i]
            else
            begin
                T[v].fail:=T[T[u].fail].next[i];
                inc(r);
                b[r]:=v;
            end;        
        end;
        inc(l);
    end;
end;    
function query(st:ansistring):longint;
var i,ans,now,j:longint;
begin
    ans:=0; now:=rt;
    for i:=1 to length(st) do
    begin
        now:=T[now].next[id[st[i]]];
        j:=now;
        while T[j].cnt>0 do
        begin
            ans:=ans+T[j].cnt;
            T[j].cnt:=0;
            j:=T[j].fail;
        end;
        ans:=ans+T[T[j].fail].cnt;
        T[T[j].fail].cnt:=0;
    end;    
    exit(ans);
end;
procedure main;
var i,n:longint;
    st:ansistring;
begin
    fillchar(T,sizeof(T),0);
    for i:=1 to 26 do id[chr(96+i)]:=i;
    readln(n);
    for i:=1 to n do readln(s[i]);
    rt:=0; tmp:=0;
    for i:=1 to n do ins(s[i]);
    build;
    readln(st);
    writeln(query(st));
end;
begin
    readln(cas);
    while cas>0 do begin dec(cas); main; end;
end.