单队优化DP

[题目描述]

略

[题解]

如果忽略掉K的限制,单队优化是很显然的.

加上k后,我们要"延迟"元素进队的时间,在适当的时候再把元素进队.

另外,考场上没想到直接用单队维护maxmin,打了个线段树,再加上方程推错,交上去各种WA,最后终于被众人碾压.

为了维护maxmin,再开2个队列.以max为例,维护一个元素单减的序列,队首的删除与决策队列同步.(Orz考场上想出来的CCL大神犇)

感觉这道题目不是什么神题,但是给我们提供了一个很好的思路:用单队维护决策以外的东西(如maxmin),以后可能会用到.

代码很丑,懒得推队列同步的时机.要用的时候一顿猛删元素,不过也过了.

Code:

program gift;
type int=longint;
var
        i,j,ii:longint;
        k,m,n,tot,tt:int;
        w,f,q,q1,q2:array[0..201000]of int;
        l,r,l1,l2,r1,r2:int;

procedure Delete;
begin
        while(l<=r)and(q[l]>=q1[l1])do inc(l1);
        while(l<=r)and(q[l]>=q2[l2])do inc(l2);
        while(l<=r)and(w[q1[l1]]-w[q2[l2]]>m)do begin
                inc(l);
                while(l<=r)and(q[l]>=q1[l1])do inc(l1);
                while(l<=r)and(q[l]>=q2[l2])do inc(l2);
        end;
end;

procedure dp;
begin
        if k=1 then begin f[n]:=n;end;
        l1:=1;l2:=1;l:=1;
        r1:=0;r2:=0;r:=0;
        f[0]:=0;
        for i:=1 to n do begin
                while(l<=r)and(q[l]>=q1[l1])do inc(l1);
                while(l<=r)and(q[l]>=q2[l2])do inc(l2);
                while(l1<=r1)and(w[q1[r1]]<=w[i])do dec(r1);//max
                while(l2<=r2)and(w[q2[r2]]>=w[i])do dec(r2);//min
                inc(r1);inc(r2);q1[r1]:=i;q2[r2]:=i;
                Delete;
                if l<=r then f[i]:=f[q[l]]+i-q[l] else f[i]:=0;
                if f[i]<f[i-1]then f[i]:=f[i-1];
                if(i-k+1>=0)then begin
                        j:=i-k+1;
                        while(l<=r)and(f[q[r]]-q[r]<=f[j]-j)do dec(r);
                        inc(r);q[r]:=j;
                end;
        end;
end;

begin
        assign(input,'gift.in');reset(input);
        assign(output,'gift.out');rewrite(output);
        read(tt);
        for ii:=1 to tt do begin
                read(n,m,k);
                for i:=1 to n do read(w[i]);
                dp;
                writeln(f[n]);
        end;
        close(input);close(output);
end.