单调队列(oj1771)

先看道题

很显然，这题可以用堆去做。解法具体可以去看我以前写的博客

然而这不是重点。。。

重点是写一个堆太eggache了
有没有其它办法？

那就是单调队列

---

设一个单调递增队列d

何为递增？
后面的数一定比前面的小

先不管怎么实现，如果一直维护着一个单调队列，那么它的头元素一定是最小/大的。
因为它是队列里最小/大的数啊。。

---

那么问题来了
怎么维护

主要是插入元素
因为要维护单调的性质，所以如果当前的元素和尾元素产生冲突(大/小)时，
就把尾元素丢掉
当然如果整个队列都被扔了，那么新元素就是头元素

关于查找

有时候题目会加上一些奇怪的性质（比如烽火传递），有时候头元素不能用
那么就直接丢掉，直到能用为止

代码

var
        a:array[1..100000] of longint;
        f:array[1..100000] of longint;
        d:array[1..100000,1..2] of longint;
        n,m,i,h,t,ans:longint;
procedure put(s,s2:longint);
var
        i:longint;
begin
        while (h<=t) and (d[t,1]>=s) do
        dec(t);
        inc(t);
        d[t,1]:=s;
        d[t,2]:=s2;
end;
function min(x,y:longint):longint;
begin
        if x<y then min:=x
        else
        min:=y;
end;
procedure swap(var x,y:longint);
var
        z:longint;
begin
        z:=x;
        x:=y;
        y:=z;
end;
procedure qsort(l,r:longint);
var
        i,j,mid:longint;
begin
        i:=l;
        j:=r;
        mid:=d[(l+r) div 2,1];
        while i<=j do
        begin
                while (d[i,1]<mid) do inc(i);
                while (d[j,1]>mid) do dec(j);
                if i<=j then
                begin
                        swap(d[i,1],d[j,1]);
                        swap(d[i,2],d[j,2]);
                        inc(i);
                        dec(j);
                end;
        end;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);
end;
begin
        assign(Input,'beacon.in'); reset(Input);
        assign(Output,'beacon.out'); rewrite(Output);
        readln(n,m);
        for i:=1 to n do
        readln(a[i]);
        for i:=1 to m do
        begin
                f[i]:=a[i];
                d[i,1]:=a[i];
                d[i,2]:=i;
        end;
        h:=1;
        t:=m;
        qsort(1,t);
        for i:=m+1 to n do
        begin
                while (h<=t) and (d[h,2]+m<i) do
                inc(h);
                f[i]:=d[h,1]+a[i];
                put(f[i],i);
        end;
        ans:=maxlongint;
        for i:=n-m+1 to n do
        ans:=min(ans,f[i]);
        writeln(ans);
        close(Input); close(Output);
end.