infoarena

int solve(void)
{
	Deckmin[1] = A[1]; //vectorul unde se pastreaza max
	Deckmax[1] = A[1]; //vectorul unde se pastreaza min
	int c = 1;
	Pmin[1] = 1; //vectorul unde editez lungimile secventei pentru deque min
	Pmax[1] = 1; //vectorul unde editez lungimile secventei pentru deque max
	for(int i=2;i<=N;i++)
	{
		Backmin ++;
		while(Backmin>=Frontmin && Deckmin[--Backmin] > A[i]);
		Deckmin[++Backmin] = A[i];
		Pmin[Backmin] = ++c;
		Backmax ++;
		while(Backmax>=Frontmax && Deckmax[--Backmax] < A[i]);
		Deckmax[++Backmax] = A[i];
		Pmax[Backmax] = c;
		if(Deckmax[Frontmax]-Deckmin[Frontmin]>K)
		{
			if(Frontmin == Backmin)
			{
				while(Deckmax[++Frontmax]-Deckmin[Frontmin]>K);
				c -= Pmax[Frontmax];
			}
			else
			{
				while(Deckmax[Frontmax]-Deckmin[++Frontmin]>K);
				c -= Pmin[Frontmin];
			}
			c ++;
		}
		if(MAX<c)
			MAX = c;
	}
	return 0;
}

Program secvdist;
type tip1=record
             v,p:longint;
             end;
     tip=array [0..1000000] of tip1;
 var a:array [0..1000000] of longint;
    b1:array [1..1 shl 17] of char;
    min,max:tip;
    i,j,n,k,l,c1,c2,co1,co2,sol:longint;
    fi,fo:text;
procedure introdu(var b:tip; x:longint; op:byte);
begin
 if op=1 then begin
               if x<b[co1].v then begin inc(co1); b[co1].v:=x; end
                else begin
                      while (co1>=c1) and (x>=b[co1].v) do dec(co1);
                       inc(co1); b[co1].v:=x;
                      end;
                b[co1].p:=i;
                end
 else begin
         if x>b[co2].v then begin inc(co2); b[co2].v:=x; end
                else begin
                      while (co2>=c2) and (x<=b[co2].v) do dec(co2);
                       inc(co2); b[co2].v:=x;
                      end;
                b[co2].p:=i;
                end;
end;
procedure schimba;
 begin
  if i-l>sol then sol:=i-l;
   while max[c1].v-min[c2].v>k do
    if max[c1].p<min[c2].p then inc(c1) else inc(c2);
  if max[c1].p<min[c2].p then l:=max[c1].p else l:=min[c2].p;
end;
begin
 assign(fi,'secvdist.in');
  assign(fo,'secvdist.out');
 settextbuf(fi,b1);
 reset(fi); rewrite(fo); readln(fi,n,k);
  for i:=1 to n do read(fi,a[ i ]);
   l:=1; c1:=1; c2:=1; co1:=1; co2:=1; min[c1].v:=a[1]; max[c1].v:=a[1]; min[1].p:=1; max[1].p:=1;
  for i:=2 to n do begin
                   introdu(max,a[ i ] ,1);
                    introdu(min,a[ i ] ,0);
                   if max[c1].v-min[c2].v>k then schimba;
                   end;
    if i-l+1>sol then sol:=i-l+1;
   write(fo,sol);
 close(fo);
end.