codves动态规划 最长上升子序列

熊大妈的奶牛在小沐沐的熏陶下开始研究信息题目。小沐沐先让奶牛研究了最长上升子序列，再让他们研究了最长公共子序列，现在又让他们要研究最长公共上升子序列了。
小沐沐说，对于两个串A，B，如果它们都包含一段位置不一定连续的数字，且数字是严格递增的，那么称这一段数字是两个串的公共上升子串，而所有的公共上升子串中最长的就是最长公共上升子串了。
奶牛半懂不懂，小沐沐要你来告诉奶牛什么是最长公共上升子串。不过，只要告诉奶牛它的长度就可以了。

分析：和题目说的一样，这就是一道最长上升子序列的模版题（LCIS算法）。

function max(a,b:longint):longint;

begin

  if a>b then exit(a) else exit(b);

end;

begin

  read(n);

  for i:=1 to n do read(a[i]);

  for j:=1 to n do read(b[j]);

  fillchar(f,sizeof(f),0);  

  for i:=1 to n do

    for j:=1 to n do

      if a[i]=b[j] then  

      begin

        for k:=0 to j-1 do  

          if (b[k]<b[j])and(f[i-1,k]>=f[i,j]) then f[i,j]:=f[i-1,k]+1;

      end

      else f[i,j]:=f[i-1,j];  

  ans:=0;

  for i:=1 to n do

    for j:=1 to n do

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

  write(ans);

end.