pku1887 最长不上升子序列

恩，纯水。。高一的时候连平方都不知道，只知道nlogn，后来才知道平方的，额，果然是dp菜。

题目大意：

  给你一列数，求单调不上升子序列，以-1结尾。

简略题解：

  用单调队列维护这个序列，如果这个数比队尾数<=那么直接插到队尾。如果比队尾数大，那么可以往前找到第一个比这个数大的数，插到它后面，最后队列的长度就是答案。

  至于这个算法为什么是对的，我想这个算法本身就是很好的证明吧（很多人问过，可是我太菜了。。）。

附程序：

program pku_1887; var a,c:array[0..5001] of longint; n,l,tot:longint; {---------------------------} procedure init; begin n:=0; fillchar(a,sizeof(a),0); fillchar(c,sizeof(c),0); while a[n]<>-1 do begin inc(n); readln(a[n]); end; dec(n); end; {---------------------------} function find(x:longint):longint; var i,j,mid:longint; begin i:=1;j:=l; repeat mid:=(i+j) div 2; if c[mid]>x then i:=mid+1 else j:=mid-1; until i>j; exit(i); end; {---------------------------} procedure main; var i,j:longint; begin c[0]:=maxlongint; l:=0; for i:=1 to n do if a[i]<=c[l] then begin inc(l);c[l]:=a[i]; end else begin j:=find(a[i]); c[j]:=a[i]; end; inc(tot); writeln('Test #',tot,':'); writeln(' maximum possible interceptions: ',l); writeln; end; {---------------------------} begin init; while a[1]<>-1 do begin main; init; end; end.