HDU2222 (AC自动机）

AC自动机模板题。

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

AC自动机参考教程:

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

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