jzoj 1569. 【普及模拟】公共子串 解题报告

1569. 【普及模拟】公共子串 
(File IO): input:common.in output:common.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

写一个程序，给你两个字符串，计算最长的公共子串的长度。如果字符串s连续地出现在字符串t中，则称s是t的子串。

输入

    输入有两行，每行一个字符串，字符串里的字符都是大写英文字母，长度不超过4000。

输出

    输出一个整数表示公共子串的最长长度。

样例输入

ABRACADABRA

ECADADABRBCRDARA

样例输出

5

数据范围限制

提示

【样例输入输出】

common.in	common.out
ABRACADABRA ECADADABRBCRDARA	5
UPWJCIRUCAXIIRGL SBQNYBSBZDFNEV	0

【数据范围】

30%的字符串长度不超过50

经典的dp

  简便版状态转移方程如下

 if a[i]=b[j] then f[i,j]=f[i-1,j-1]+1;

 答案是 max(f[i,j]);

代码如下

var

s1,s2:ansistring;

f:array[0..4000,0..4000]of longint;

i,j,ans:longint;

begin

assign(input,'common.in');reset(input);

assign(output,'common.out');rewrite(output);

readln(s1);

readln(s2);

for i:=1 to length(s1) do

for j:=1 to length(s2) do

if s1[i]=s2[j] then f[i,j]:=f[i-1,j-1]+1；

for i:=1 to length(s1) do

for j:=1 to length(s2) do

if f[i,j]>ans then ans:=f[i,j];

write(ans);

close(input); close(output);

end.