公共子串

题目：

Description

设有A、B两个字符串，找出A、B共同子串，每个字符串无相同字符，可以不连续，但顺序不能颠倒。

Input

第一行字符串A
第二行字符串Ｂ

Output

最长公共子串的长度.

Sample Input

abcfbc
abfcab

Sample Output

4

作者思路:dp。
公式：f[i,j]:=max(f[i-1,j],f[i,j-1])

代码：

var st1,st2:string;
    i,j:longint;
    f:array[0..256,0..256] of longint;
function max(x,y:longint):longint;
begin
  if x>y then exit(x) else exit(y);
end;
begin
  readln(st1);
  readln(st2);
  for i:=1 to length(st1) do
    for j:=1 to length(st2) do
      if st1[i]=st2[j] then f[i,j]:=f[i-1,j-1]+1 else
      f[i,j]:=max(f[i-1,j],f[i,j-1]);
  write(f[length(st1),length(st2)]);
end.