bzoj 2227 单调队列

某国进行了连续n天的温度测量，测量存在误差，测量结果是第i天温度在[l_i,r_i]范围内。
求最长的连续的一段，满足该段内可能温度不降。

显然的四件事情：

（1）对于我们所选的区间[L,R]，我们一定会选择L的最小值l

（2）当li>rj的时候，i和j是不能同时位于一个区间内的

（3）满足“先进先出”且区间内具有单调性

（4）当li<lj 且 i<j时，我们选择i会更优

所以，我们会发现我们需要单调队列来维护

我们对l维护一个单调不增的队列

对于我们当前处理的第i天，

队首出队的条件：l[que[h]]>r[i]

ans=max{i-que[h]+1}

队尾的更新稍微不太一样，根据我们知道的显然的第四点且que[h]表示的是左端点L，所以最后入队的不一定是i

只要l[que[tl]]<l[i]就让队尾元素出队

最后入队的是最后出队的元素t（如果没有元素出队则i入队），并同时把l[t]赋成l[i]（因为它实际表示了[t,i]，所以它的l要改为l[i]）

uses math;
var
        n,h,tl,ans,tt   :longint;
        que,l,r         :array[0..1000010] of longint;
        i               :longint;

begin
   read(n);
   for i:=1 to n do read(l[i],r[i]);
   h:=1; tl:=1; que[1]:=1; ans:=1;
   for i:=2 to n do
   begin
      while (h<=tl) and (l[que[h]]>r[i]) do inc(h);
      if (h<=tl) then ans:=max(ans,i-que[h]+1);
      tt:=i; 
      while (h<=tl) and (l[que[tl]]<l[i]) do
      begin
         tt:=que[tl]; dec(tl);
      end;
      l[tt]:=l[i]; inc(tl); que[tl]:=tt;
   end;
   writeln(ans);
end.

——by Eirlys