1389. 【2012.02.25普及组】单词 (Standard IO) 时间限制: 1000 ms 空间限制: 131072 KB 题目描述 FJ想计算他的N(1<=N<=1000)只奶牛的名字的好听度,每个名字是一个长度不超过1000的英文字母组成。 他创建了一个好名字的集合,数量为M(1<=M<=100),每个好名字的长度不超过30,奶牛的名字中每包含一个好名字(“包含”不一定要求连续),那么它的好听度就加1. 所有的名字都不区分大小写,如名字“Bessie”包含“Be”、“sI”、“EE”、“Es”,但是不包含“eB”。 现在请你帮FJ计算每个奶牛名字的好听度。 输入 第1行: 2个用空格隔开的整数:N 和 M; 第2..N+1行: 第i+1为第i个奶牛的名字; 第N+2..N+M+1行:第N+i+1行为第i个好名字。 输出 第1..N行:第i个数为第i头奶牛名字的好听度。 样例输入 5 3 Bessie Jonathan Montgomery Alicia Angola se nGo Ont 样例输出 1 1 2 0 1 代码如下: 直接枚举即可 这道题其实超级水!!!不要被那个极限的(1000*1000*30*100)的循环吓到了,事实上这个4重循环是可以卡过的(jzoj上是AC哒) var n,m,i,j,k,l,d:longint; s:boolean; a:array[0..300]of ansistring; b:array[0..10000]of ansistring; c:array[-1..10000]of longint; procedure init; var i:longint; begin readln(n,m); for i:=1 to n do begin readln(b[i]); b[i]:=upcase(b[i]); end; for i:=1 to m do begin readln(a[i]); a[i]:=upcase(a[i]); end; end; begin init; for i:=1 to n do begin for j:=1 to m do begin d:=0; for l:=1 to length(a[j]) do begin s:=false; for k:=d+1 to length(b[i]) do if a[j][l]=b[i][k] then begin d:=k; s:=true; break; end; if not s then break; end; if s then inc(c[i]); end; end; for i:=1 to n do writeln(c[i]); end.