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

本文主要是介绍[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

varx: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;
beginreadln(n,m);for i:=1 to n dobegint:='';readln(x[i]);for j:=1 to length(x[i]) doif ord(x[i][j])<=90then t:=t+chr(ord(x[i][j])+32)else t:=t+x[i][j];x[i]:=t;end;for i:=1 to m dobegint:='';readln(y[i]);for j:=1 to length(y[i]) doif ord(y[i][j])<=90then t:=t+chr(ord(y[i][j])+32)else t:=t+y[i][j];y[i]:=t;end;for i:=1 to n dobeginfor j:=1 to m dobeginlen:=1;for k:=1 to length(x[i]) dobeginif x[i][k]=y[j][len]then begininc(len);if len=length(y[j])+1then begin inc(ans[i]); break; end;end;end;end;end;for i:=1 to n dowriteln(ans[i]);
end.