LCIS-最长公共上升子序列.docVIP

? ★LCIS? ??? ??? ? 描述 Description? ? 熊大妈的奶牛在小沐沐的熏陶下开始研究信息题目。小沐沐先让奶牛研究了最长上升子序列，再让他们研究了最长公共子序列，现在又让他们要研究最长公共上升子序列了。小沐沐说，对于两个串A，B，如果它们都包含一段位置不一定连续的数字，且数字是严格递增的，那么称这一段数字是两个串的公共上升子串，而所有的公共上升子串中最长的就是最长公共上升子串了。奶牛半懂不懂，小沐沐要你来告诉奶牛什么是最长公共上升子串。不过，只要告诉奶牛它的长度就可以了。 ??? ??? ? 输入格式 Input Format? ? 第一行N，表示A，B的长度。第二行，串A。第三行，串B。 ??? ??? ? 输出格式 Output Format? ? 输出长度。 ??? ??? ? 样例输入 Sample Input? ? ??? ??? ? 样例输出 Sample Output? ? ??? ??? ? 时间限制 Time Limitation? ? 各个测试点1s ??? ??? ? 注释 Hint? ? 1=N=3000，A，B中的数字不超过maxlongint ??? ??? ? 来源 Source? ? Moe-ing ? 刚开始，想了个3围的dp，f[i,j,k]表示a串到i,b串到j，长度为k的最小值，显然需要N^3,而加入DP的优化，可以接近于N^2，是可以做的。而我今天要谈得不是这个做法，而是个更为巧妙的做法，分析见程序 程序如下： var a,b,f:array[1..3000]of longint;{其中f[i]表示b串前i个包括b[i]的最长上升子序列数}??? i,j,k,l,m,n,max:longint;begin? readln(n);? for i:=1 to n do??? read(a[i]);? readln;? for j:=1 to n do??? read(b[j]);? for i:=1 to n do{外循环表示a串前i个，也就是说每次运用a串前i个求出刷新f数组的最新值}??? begin{ps:本次将运用a[i]的值进行更新}????? max:=0;{用于记录当前a串前i个和b串前j个的最长公共上升子序列最大值}????? for j:=1 to n do??????? begin????????? if (a[i]b[j])and(maxf[j])then max:=f[j];{由于a[i]b[j]所以f[j]可用于当a[i]=b[j]时的最大值更新}????????? if (a[i]=b[j])and(max+1f[j])then f[j]:=max+1;{a[i]=b[j]时，max已经记录了j之前B串中的可用f[j]的最大值了，所以用max+1来更新f[j]}2??????? end;??? end;? max:=0;? for i:=1 to n do??? if f[i]max then max:=f[i];{媒举每个f[i]以获得总的最大值}? writeln(max);end.