bzoj2096

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

var q1,q2:array[0..10000010] of longint;
    a:array[0..10000010] 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:=1 to n do
    read(a[i]);
  t:=1;
  l1:=1;
  l2:=1;
  for i:=1 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]+1;
        inc(l1);
      end
      else begin
        t:=q2[l2]+1;
        inc(l2);
      end;
    ans:=max(ans,i-t+1);
  end;
  writeln(ans);
end.