1622: [Usaco2008 Open]Word Power 名字的能量

1622: [Usaco2008 Open]Word Power 名字的能量

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 370  Solved: 184
[Submit][Status][Discuss]

Description

    约翰想要计算他那N(1≤N≤1000)只奶牛的名字的能量．每只奶牛的名字由不超过1000个字待构成，没有一个名字是空字体串，  约翰有一张“能量字符串表”，上面有M(1≤M≤100)个代表能量的字符串．每个字符串由不超过30个字体构成，同样不存在空字符串．一个奶牛的名字蕴含多少个能量字符串，这个名字就有多少能量．所谓“蕴含”，是指某个能量字符串的所有字符都在名字串中按顺序出现（不一定一个紧接着一个）．

    所有的大写字母和小写字母都是等价的．比如，在贝茜的名字“Bessie”里，蕴含有“Be”

“sI”“EE”以及“Es”等等字符串，但不蕴含“lS”或“eB”．请帮约翰计算他的奶牛的名字的能量．

Input

    第1行输入两个整数N和M，之后N行每行输入一个奶牛的名字，之后M行每行输入一个能量字符串．

Output

 

    一共N行，每行一个整数，依次表示一个名字的能量．

Sample Input

5 3
Bessie
Jonathan
Montgomery
Alicia
Angola
se
nGo
Ont

INPUT DETAILS:

There are 5 cows, and their names are "Bessie", "Jonathan",
"Montgomery", "Alicia", and "Angola". The 3 good strings are "se",
"nGo", and "Ont".

Sample Output

1
1
2
0
1

OUTPUT DETAILS:

"Bessie" contains "se", "Jonathan" contains "Ont", "Montgomery" contains
both "nGo" and "Ont", Alicia contains none of the good strings, and
"Angola" contains "nGo".

HINT

 

Source

Silver

题解：这道题显然可以暴力随便谢谢水过，但要是这样子的话就远远没有辣么好玩了，于是我再一次请出了萌萌哒线段树——

线段树存储每一个名字，然后连维护都不需要，直接实现查找在某某区间范围内最靠左的某个指定字母的位置，然后有了这个，就可以直接用后面的子串对前面的名字进行匹配即可，复杂度O(NMLlogM)（居然还是2988 ms水过去了，好开心）

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 var
    i,j,k,l,m,n,ans:longint;
    ss:ansistring;
    b,c:array[..] of ansistring;
    a:array[..,..] of longint;
 function min(x,y:longint):longint;inline;
          begin
               if x<y then min:=x else min:=y;
          end;
 function max(x,y:longint):longint;inline;
          begin
               if x>y then max:=x else max:=y;
          end;
 procedure built(z,x,y:longint);
           var i:longint;
           begin
                if (x=y) then
                   a[z,ord(ss[x])-]:=
                else
                    begin
                         built(z*,x,(x+y) div );
                         built(z*+,(x+y) div +,y);
                         for i:= to  do a[z,i]:=a[z*,i]+a[z*+,i]
                    end;
           end;
 function approach(z,x,y,l,r,t:longint):longint;
          var a1:longint;
          begin
               if l>r then exit();
               if a[z,t]= then exit();
               if x=y then exit(x);
               a1:=approach(z*,x,(x+y) div ,l,min(r,(x+y) div ),t);
               if a1<> then exit(a1);
               exit(approach(z*+,(x+y) div +,y,max(l,(x+y) div +),r,t));
          end;

 begin
      readln(n,m);
      for i:= to n do
          begin
               readln(b[i]);
               b[i]:=upcase(b[i]);
          end;
      for i:= to m do
          begin
               readln(c[I]);
               c[i]:=upcase(c[i]);
          end;
      for i:= to n do
          begin
               ss:=b[i];
               fillchar(a,sizeof(a),);
               built(,,length(ss));
               ans:=;
               for j:= to m do
                   begin
                        l:=;
                        for k:= to length(c[j]) do
                            begin
                                 l:=approach(,,length(ss),l+,length(ss),ord(c[j][k])-);
                                 if l= then break;
                            end;
                        if l<> then inc(ans);
                   end;
               writeln(ans);
          end;
 end.