【字符串】漏洞和补丁解题报告

第一题    漏洞和补丁

背景

  ICG模拟赛开始了！

由FF博士带领的团队要开始准备ICG模拟赛了，但他们发现机房的电脑有很多漏洞。

为了修补漏洞，只有下载各种补丁。 但是由于这些漏洞太过久远，不一定能找到能够修复漏洞的补丁。

以下有n个漏洞和m个补丁，用字符串表示。

若其中一个漏洞被一个补丁包含或包含一个补丁则认为这是一个可以被修复的漏洞。

(不区分大小写,一个补丁可以修复多个漏洞，一个漏洞只能被修复一次)

  输出能被修复的漏洞总数。

输入格式：

  第一行，两个整数n,m；

  第2行到第N+1行,表示漏洞的名称；

  接下来M行表示能下载到的各个补丁的名称。

输出格式

  1个整数，表示能被修复的漏洞总数。

输入样例

3 3

Abc

DGFYJJa

ICG2010

aBCd

YHDajfje

ICG

输出样例

  2

样例解释：

漏洞是

Abc

DGFYJJa

ICG2010

补丁是：

aBCd

YHDajfje

IcG

其中1号漏洞Abc被aBCd包含，可修复。3号漏洞ICG2010包含IcG.所以有2个漏洞可以被修复。

(可能会出现同名的补丁或漏洞。)

数据范围：

对于每个给出的漏洞和补丁，长度不超过256；

对于100%的数据，m,n<=100

 

【考察点】

字符串操作

【思路】

按照题目要求搞就是了……所有核心操作都是有标准函数的。就Pascal而言，大小写转换我们用upcase或lowercase，查找我们用pos……毫无难度……用KMP的都是菜B。

【提交情况】

1次AC

【经验及收获】

多熟悉编译器自带的标准函数，虽然效率可能低点，但是依旧很有用。

 

ACCode：

 

Program patch;
Var
	a,b:array[0..110]of ansistring;
	n,m:longint;
Procedure terminate;
begin
	close(input);
	close(output);
	halt;
end;

Procedure init;
var
	i,j:longint;
begin
	assign(input,'patch.in');
	assign(output,'patch.out');
	reset(input);
	rewrite(output);

	readln(n,m);
	for i:=1 to n do
		readln(a[i]);
	for i:=1 to m do
		readln(b[i]);

	for i:=1 to n do
	begin
		for j:=1 to length(a[i]) do
		begin
			a[i][j]:=upcase(a[i][j]);
		end;
		//writeln(a[i]);
	end;
	for i:=1 to m do
	begin
		for j:=1 to length(b[i]) do
		begin
			b[i][j]:=upcase(b[i][j]);
		end;
		//writeln(b[i]);
	end;
end;

Procedure main;
var
	i,j,id1,id2,tot:longint;
begin
	tot:=0;
	for i:=1 to n do
	begin
		for j:=1 to m do
		begin
			id1:=pos(a[i],b[j]);
			id2:=pos(b[j],a[i]);
			if (id1<>0)or(id2<>0) then 
			begin
				//writeln(a[i]);
				inc(tot);
				break;
			end;
		end;
	end;

	writeln(tot);
end;

Begin
	init;
	main;
	terminate;
End.