USACO/prefix

 

Translate:USACO/prefix

来自"NOCOW"

跳转到: 导航, 搜索

[编辑]描述

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

如果一个集合 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:qq397471

PROG:prefix

LANG: 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.