jzoj 1389. 【2012.02.25普及组】单词
来源:互联网 发布:椰族部落永久域名入口 编辑:程序博客网 时间:2024/05/02 02:44
题目
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头奶牛名字的好听度。
暴力枚举每一个名字和好名字,用一个指针来记录好名字中的每一个单词,每找到一个加一,如果最后指针大于长度就累加结果
程序
var a,b:array[0..10000] of ansistring; st,s:ansistring; ch:char; i,j,k,n,m,ans,q,p:longint;begin readln(n,m); for i:=1 to n do begin readln(a[i]); a[i]:=upcase(a[i]); end; for i:=1 to m do begin readln(b[i]); b[i]:=upcase(b[i]); end; for i:=1 to n do begin for j:=1 to m do begin q:=1; p:=1; s:=a[i]; st:=b[j]; while q<=length(s) do begin if s[q]=st[p] then begin inc(q); inc(p); end else inc(q); end; if p>length(st) then begin inc(ans); end; end; writeln(ans); ans:=0; end;end.
2 1
- jzoj 1389. 【2012.02.25普及组】单词
- jzoj 1389. 【2012.02.25普及组】单词 结题报告
- jzoj 1390. 【2012.02.25普及组】牛车
- jzoj 1388. 【2012.02.25普及组】探索的奶牛
- jzoj 1390. 【2012.02.25普及组】牛车 结题报告
- jzoj 1391. 【2012.02.25普及组】危险系数 解题报告
- jzoj 1391. 【2012.02.25普及组】危险系数
- jzoj 1388 【2012.02.25普及组】探索的奶牛 结题报告
- jzoj 1384. 【2012.02.18普及组】上学路线
- jzoj 1400. 【2012.03.09普及组】骰子
- jzoj 1402. 【2012.03.09普及组】旅行
- jzoj 1386. 【2012.02.18普及组】郁闷的记者——拓扑排序
- 【模拟】[NOIP2011普及组]统计单词数
- NOIP2011普及组统计单词数
- jzoj 1396. 【2012.03.3普及组】打牌 解题报告
- jzoj 1397. 【2012.03.3普及组】寻找星座 解题报告
- jzoj 1401. 【2012.03.09普及组】约数和
- jzoj 1415. 【2012.04.14普及组】最短距离
- 2_并口仿真器的使用
- LUA学习笔记(第1-4章)
- Linux基础知识的学习(一)
- jzoj 1390. 【2012.02.25普及组】牛车 结题报告
- poj1700 Crossing River
- jzoj 1389. 【2012.02.25普及组】单词
- java并发包学习系列:概论
- UE4中集成Wiimote
- iOS 分别控制系统声音和震动
- NYOJ 大数阶乘问题
- Swift-构造函数(一)
- java并发包学习系列:java并行基础
- 解决CentOS6.6 /etc/sysconfig/下没有iptables的问题
- Java中的继承与组合