3172: [Tjoi2013]单词

3172: [Tjoi2013]单词

Time Limit: 10 Sec  Memory Limit: 512 MB
Submit: 1424  Solved: 653
[Submit][Status]

Description

某人读论文，一篇论文是由许多单词组成。但他发现一个单词会在论文中出现很多次，现在想知道每个单词分别在论文中出现多少次。

Input

第一个一个整数N,表示有多少个单词，接下来N行每行一个单词。每个单词由小写字母组成，N<=200,单词长度不超过10^6

Output

输出N个整数，第i行的数字表示第i个单词在文章中出现了多少次。

Sample Input

3
a
aa
aaa

Sample Output

6
3
1

HINT

 

Source

 题解：这个比较明显可以AC自动机乱搞搞，但我还是想到了NOI2014的动物园那题神奇的KMP，于是类比那个来了一发，别的没了（其实简单的kmp在某些方面感觉似乎比AC自动机还要灵活呢。。。真的^_^）

var
    i,j,k,l,m,n,x,p,y:longint;
    s:array [0..2000010] of char;
    a,c,d:array [0..2000010] of longint;
    b:array [0..201,0..200010] of char;
begin
    readln(n);
    x:=0;
    for i:=1 to n do
        begin
            c[i]:=x+1;
            p:=0;
            while not(eoln) do
                begin
                    inc(x);
                    read(s[x]);
                    inc(p);
                    b[i,p]:=s[x];
                end;
            d[i]:=p;
            inc(x);
            s[x]:=' ';
            readln;
        end;
    for i:=1 to n do
        begin
            a[1]:=0;
            k:=0;
            for j:=1 to d[i]-1 do
                begin
                    while (k>0) and (b[i,k+1]<>b[i,j+1]) do k:=a[k];
                    if b[i,k+1]=b[i,j+1] then inc(k);
                    a[j+1]:=k;
                end;
            y:=0;
            k:=0;
            for j:=1 to x do
                begin
                    while (k>0) and (b[i,k+1]<>s[j]) do k:=a[k];
                    if b[i,k+1]=s[j] then inc(k);
                    if k=d[i] then
                        begin
                            inc(y);
                            k:=a[k];
                        end;
                end;
            writeln(y);
        end;
end.