pku1821 dp的优化

好了我已经说过N次我是dp菜了，这道题交了N次连wa带re啊。。

题目大意：

  有k（1<=k<=100）个人要进行粉刷工作，每个人最多粉刷l[i]个栅栏（必须连续），必须包含第s[i]个栅栏，粉刷每个栅栏的费用为p[i]。总共有n个栅栏（1<=n<=16000）。让你求解如何安排这些人粉刷栅栏使费用最小。

简略题解:

  恩，我一开始只想到了n^2*k的算法，f[i,j]表示第i个围墙第j个人来刷的最小费用

  f[i,j]:=max{f[j]+len*cost}但是对于n=16000显然TLE

  然后就用一个队列来存储以前的结果，维护队列的单调性就可以了。

附代码：

program pku_1887; var len,s,p:array[0..201] of longint; f:array[0..1,0..20001] of longint; q,zt:array[0..40000] of longint; n,m:longint; {---------------------------------} function max(x,y:longint):longint; begin if x>y then exit(x) else exit(y); end; {---------------------------------} procedure qsort(x,y:longint); var g,t,l,r:longint; begin t:=s[x+random(y-x)]; l:=x;r:=y; repeat while s[l]<t do inc(l); while s[r]>t do dec(r); if l<=r then begin g:=p[l];p[l]:=p[r];p[r]:=g; g:=s[l];s[l]:=s[r];s[r]:=g; g:=len[l];len[l]:=len[r];len[r]:=g; inc(l);dec(r); end; until l>r; if l<y then qsort(l,y); if x<r then qsort(x,r); end; {---------------------------------} procedure init; var i:longint; begin readln(n,m); for i:=1 to m do readln(len[i],p[i],s[i]); qsort(1,m); end; {---------------------------------} procedure main; var i,j,k,h,l,t:longint; begin t:=0; for k:=1 to m do begin h:=1;l:=0; t:=1-t; fillchar(f[t],sizeof(f[t]),0); for i:=0 to s[k]-1 do begin f[t,i]:=f[1-t,i]; j:=f[1-t,i]-p[k]*i; while (j>=zt[l]) and (l>=h) do dec(l); inc(l);zt[l]:=j; q[l]:=i; while (i-q[h]>len[k]) do inc(h); end; for i:=s[k] to s[k]+len[k]-1 do begin while (i-q[h]>len[k]) and (h<=l) do inc(h); f[t,i]:=max(f[1-t,i],zt[h]+i*p[k]); f[t,i]:=max(f[t,i-1],f[t,i]); end; for i:=s[k]+len[k] to n do f[t,i]:=max(f[1-t,i],f[t,s[k]+len[k]-1]); end; writeln(f[t,n]); end; {---------------------------------} begin randomize; init; main; end.