USACO/prefix

 

Translate:USACO/prefix

来自"NOCOW"

跳转到: 导航, 搜索

目录

• 1 描述
• 2 格式
• 3 SAMPLE INPUT (file prefix.in)
• 4 SAMPLE OUTPUT (file prefix.out)

[编辑]描述

在生物学中，一些生物的结构是用包含其要素的大写字母序列来表示的。生物学家对于把长的序列分解成较短的（称之为元素的）序列很感兴趣。

如果一个集合 P 中的元素可以通过串联（允许重复；串联，相当于 Pascal 中的 “+” 运算符）组成一个序列 S ，那么我们认为序列 S 可以分解为 P 中的元素。并不是所有的元素都必须出现。举个例子，序列 ABABACABAAB 可以分解为下面集合中的元素：

{A, AB, BA, CA, BBC}

序列 S 的前面 K 个字符称作 S 中长度为 K 的前缀。设计一个程序，输入一个元素集合以及一个大写字母序列，计算这个序列最长的前缀的长度。

[编辑]格式

PROGRAM NAME: prefix

INPUT FORMAT

输入数据的开头包括 1..200 个元素（长度为 1..10 ）组成的集合，用连续的以空格分开的字符串表示。字母全部是大写，数据可能不止一行。元素集合结束的标志是一个只包含一个 “.” 的行。集合中的元素没有重复。接着是大写字母序列 S ，长度为 1..200,000 ，用一行或者多行的字符串来表示，每行不超过 76 个字符。换行符并不是序列 S 的一部分。

OUTPUT FORMAT

只有一行，输出一个整数，表示 S 能够分解成 P 中元素的最长前缀的长度。

[编辑]SAMPLE INPUT (file prefix.in)

A AB BA CA BBC.ABABACABAABC

[编辑]SAMPLE OUTPUT (file prefix.out)

11

来自"http://www.nocow.cn/index.php/Translate:USACO/prefix"

 

 

{ID:qq397471PROG:prefixLANG: PASCAL}var a:array[0..2000] of string;ans,b:array[0..2000000] of char;f:array[0..2000000] of boolean;n,m,i,j,sum:longint;s:char;function right(x,l:longint):boolean;var i:longint;begin for i:=1 to length(a[x]) do  if a[x][i]<>ans[l+i] then exit(false); exit(true);end;begin assign(input,'prefix.in'); assign(output,'prefix.out'); reset(input); rewrite(output); n:=1; repeat   read(s);   if (s>='A') and (s<='Z') then a[n]:=a[n]+s   else inc(n); until s='.'; while not eof(input) do  begin   while not eoln(input) do   begin   read(s);   {if (s<>' ') and (ord(s)<>13) and (ord(s)<>10) then}   inc(m); ans[m]:=s;  end;   readln;  end; {for i:=1 to m do  write(ans[i]); writeln; for i:=1 to n do  writeln(a[i]);} n:=n-1; f[0]:=true; for i:=1 to m do  for j:=1 to n do   if i-length(a[j])>=0 then    f[i]:=f[i] or (f[i-length(a[j])] and right(j,i-length(a[j]))); while (not f[m]) and (m>0) do dec(m); writeln(m); close(input); close(output);end.