bzoj2096

本来也不打算写这道题的解题报告的，因为比较水
直接维护两个单调队列（最大值，最小值）随便弄弄就行了
但是我开始疯狂不知道为什么的RE，然后实在没办法找root要了数据
测了之后……王苍，根本就没有错啊……
我就去向root反映，root测了一下以前AC的pascal程序……
王苍……又都RE了，实在是感人肺腑……

 var q1,q2:array[..] of longint;
     a:array[..] of longint;
     t,i,l1,l2,r1,r2,n,ans:longint;
     k:longint;

 function max(a,b:longint):longint;
   begin
     if a>b then exit(a) else exit(b);
   end;

 begin
   readln(k,n);
   for i:= to n do
     read(a[i]);
   t:=;
   l1:=;
   l2:=;
   for i:= to n do
   begin
     while (l1<=r1) and (a[i]>=a[q1[r1]]) do dec(r1);
     while (l2<=r2) and (a[i]<=a[q2[r2]]) do dec(r2);
     inc(r1);
     q1[r1]:=i;
     inc(r2);
     q2[r2]:=i;
     while (l1<=r1) and (l2<=r2) and (a[q1[l1]]-a[q2[l2]]>k) do
       if q1[l1]<q2[l2] then
       begin
         t:=q1[l1]+;
         inc(l1);
       end
       else begin
         t:=q2[l2]+;
         inc(l2);
       end;
     ans:=max(ans,i-t+);
   end;
   writeln(ans);
 end.