JSOI2007文本生成器

1030: [JSOI2007]文本生成器

Time Limit: 1 Sec  Memory Limit: 162 MB
Submit: 1613  Solved: 656
[Submit][Status]

Description

JSOI交给队员ZYX一个任务，编制一个称之为“文本生成器”的电脑软件：该软件的使用者是一些低幼人群，他们现在使用的是GW文本生成器v6版。该软件可以随机生成一些文章―――总是生成一篇长度固定且完全随机的文章—— 也就是说，生成的文章中每个字节都是完全随机的。如果一篇文章中至少包含使用者们了解的一个单词，那么我们说这篇文章是可读的（我们称文章a包含单词b，当且仅当单词b是文章a的子串）。但是，即使按照这样的标准，使用者现在使用的GW文本生成器v6版所生成的文章也是几乎完全不可读的。 ZYX需要指出GW文本生成器 v6生成的所有文本中可读文本的数量，以便能够成功获得v7更新版。你能帮助他吗？

Input

输入文件的第一行包含两个正整数，分别是使用者了解的单词总数N (<= 60)，GW文本生成器 v6生成的文本固定长度M；以下N行，每一行包含一个使用者了解的单词。 这里所有单词及文本的长度不会超过100，并且只可能包含英文大写字母A..Z　 。

Output

一个整数，表示可能的文章总数。只需要知道结果模10007的值。

Sample Input

2 2
A
B

Sample Output

100

HINT

代码：

const p=10007;
var a:array[0..6001,0..27] of longint;
    fail,q:array[0..6001] of longint;
    f:array[0..101,0..6001] of longint;
    s:string;
    flag:array[0..6001] of boolean;
    i,j,n,m,ans1,ans2,tot,h,t:longint;
procedure insert;
 var i,j,now:longint;
 begin
 readln(s);now:=1;
 for i:=1 to length(s) do
  begin
  j:=ord(s[i])-ord('A')+1;
  if a[now,j]=0 then begin inc(tot);a[now,j]:=tot;end;
  now:=a[now,j];
  end;
  flag[now]:=true;
 end;
procedure acmatch;
 var i,now,k:longint;
 begin
 h:=0;t:=1;q[1]:=1;fail[1]:=0;
 while h<t do
  begin
  inc(h);now:=q[h];
  for i:=1 to 26 do
   begin
   if a[now,i]=0 then continue;
   k:=fail[now];
   while a[k,i]=0 do k:=fail[k];
   fail[a[now,i]]:=a[k,i];
   if flag[a[k,i]] then flag[a[now,i]]:=true;
   inc(t);q[t]:=a[now,i];
   end;
  end;
 end;
procedure init;
 begin
 tot:=1;
 readln(n,m);
 for i:=1 to 26 do a[0,i]:=1;
 for i:=1 to n do insert;
 acmatch;
 end;
procedure dp(x:longint);
 var i,j,k:longint;
 begin
 for i:=1 to tot do
  begin
  if (flag[i]) or (f[x-1,i]=0) then continue;
  for j:=1 to 26 do
   begin
    k:=i;
    while a[k,j]=0 do k:=fail[k];
    f[x,a[k,j]]:=(f[x,a[k,j]]+f[x-1,i]) mod p;
   end;
  end;
 end;
procedure main;
 begin
 f[0,1]:=1;
 for i:=1 to m do dp(i);
 ans2:=1;ans1:=0;
 for i:=1 to m do ans2:=(ans2*26) mod p;
 for i:=1 to tot do writeln(f[m,i]);
 for i:=1 to tot do
  if not(flag[i]) then ans1:=(ans1+f[m,i]) mod p;
 writeln((ans2-ans1+p) mod p);
 end;
begin
 assign(input,'input.txt');assign(output,'output.txt');
 reset(input);rewrite(output);
 init;
 main;
 close(input);close(output);
end.
          

AC自动机模版！