标记永久化的线段树

      本文纯属自娱自乐.

      前些日子考了一道叫classroom的题目,大意是这样的:给你一个序列a,每次将l到r的元素-k,问你哪次操作后会开始出现负的元素.

      正解是二分+差分.很多人打的带标记的线段树.我考场上打的二分,后来有人说线段树常数太大,我告诉他们标记不下放可以提高速度,战神则坚持认为标记一定要下放,于是就有了这篇蛋疼的文章.

      直接贴代码,最裸的线段树.我现在写的线段树跟以前的有了很大的变化,也许是因为打多了吧.

Code:

program classroom;
type int=longint;
const max=maxlongint>>3;
var
        i,j,k,m,n,x,y,z:int;
        min,de,lb,rb,a:array[1..5000000]of int;

function mini(x,y:int):int;
begin
        if x<y then exit(x)
                else exit(y);
end;

procedure build(rt,l,r:int);var m:int;
begin
        if l>=r then begin
                min[rt]:=max;exit;
        end;
        if l=r-1 then begin
                min[rt]:=a[r];
                lb[rt]:=l;rb[rt]:=r;
                exit;
        end;
        lb[rt]:=l;rb[rt]:=r;
        m:=(l+r)>>1;
        build(rt<<1,l,m);
        build(rt<<1+