[BZOJ1622] [Usaco2008 Open]Word Power 名字的能量

[Usaco2008 Open]Word Power 名字的能量

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

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

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”.

Source

Silver

var
 x:array[0..1000]of ansistring;
 ans:array[0..1000]of longint;
 y:array[0..100]of ansistring;
 i,j,k,l,len:longint;
 n,m:longint;
 t:ansistring;
begin
 readln(n,m);
for i:=1 to n do
begin
   t:='';
   readln(x[i]);
for j:=1 to length(x[i]) do
if ord(x[i][j])<=90
then t:=t+chr(ord(x[i][j])+32)
else t:=t+x[i][j];
   x[i]:=t;
end;
for i:=1 to m do
begin
   t:='';
   readln(y[i]);
for j:=1 to length(y[i]) do
if ord(y[i][j])<=90
then t:=t+chr(ord(y[i][j])+32)
else t:=t+y[i][j];
   y[i]:=t;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
     len:=1;
for k:=1 to length(x[i]) do
begin
if x[i][k]=y[j][len]
then begin
        inc(len);
if len=length(y[j])+1
then begin inc(ans[i]); break; end;
end;
end;
end;
end;
for i:=1 to n do
  writeln(ans[i]);
end.

秒客网