cf765F.Souvenirs

比赛的时候看错了C题于是不会做了……来搞F，听说有人莫队水过去了，于是也写了个莫队，TLE7……惨掉rating

editorial看得很烦躁啊……又回想起了被英语阅读支配的恐惧

离线，移动右端点，考虑维护左端点处的答案.设当前右端点移动到了i,数列为a[],则答案的更新一定是由a[i]与某些a[j](j<i)的差的绝对值引起的，下面只考虑a[j]≥a[i]的情况，a[j]≤a[i]同理（当然如果有a[j]=a[i]会被用来更新2次但是肯定不会影响答案正确性）

首先我们找出最大的一个j满足j<i,a[j]≥a[i],用它更新[1,j]的答案。设a[j]=y,那么在[1,j-1]中如果有a的值大于y，肯定不会对答案构成影响（因为它与a[i]的差大于a[j]-a[i]），实际上，我们发现对于a数列中任何一个位于[1,j-1]的数，当且仅当它处于[a[i],(a[i]+a[j])/2]时，才可能与a[i]成对，对前面的答案造成影响，如果一个元素的值位于((a[i]+a[j])/2,a[j]],那么它肯定会与a[j]成对。这样一来，我们就把需要考虑的值域从[a[i],1e9]缩短到了[a[i],(a[i]+a[j])/2],重复这个过程，每次都至少会把这个区间折半，于是更新答案的次数是O(log(1e9))的，更新答案的过程用一个区间取min的线段树维护，寻找某一值域中最右元素可用一个动态开点的权值线段树维护，于是总时间复杂度为O(nlog²MaxV+mlogn),如果把a[]离散化之后开权值线段树可以做到O(nlognlogMaxV+mlogn),其中MaxV=1e9.

  1 program cf765F;
  2 uses math;
  3 const maxn=100000+10;
  4       maxm=300000+10;
  5       maxv=1000000000;
  6 type query=record next,l,r:longint;end;
  7 var a,last:array[0..maxn] of longint;
  8     ques:array[0..maxm] of query;
  9     ans:array[0..maxm] of longint;
 10     mark:array[0..maxn*4] of longint;
 11     segv:array[0..maxn*40] of record l,r,right:longint;end;
 12     n,m,root,tot,i,j,l,r,id:longint;
 13 procedure build(x,l,r:longint);
 14 var mid:longint;
 15 begin
 16   mark[x]:=maxv+1;
 17   if l<r then
 18   begin
 19     mid:=(l+r)shr 1;
 20     build(x+x,l,mid);
 21     build(x+x+1,mid+1,r);
 22   end;
 23 end;
 24 procedure update(x,l,r,nowl,nowr,v:longint);
 25 var mid:longint;
 26 begin
 27   if(nowl<=l)and(r<=nowr) then
 28   begin
 29     mark[x]:=min(mark[x],v);
 30     exit;
 31   end;
 32   mid:=(l+r)shr 1;
 33   if nowl<=mid then update(x+x,l,mid,nowl,nowr,v);
 34   if nowr>mid then update(x+x+1,mid+1,r,nowl,nowr,v);
 35 end;
 36 function ask(x,l,r,p:longint):longint;
 37 var mid:longint;
 38 begin
 39   if l=r then exit(mark[x]);
 40   mid:=(l+r)shr 1;
 41   if p<=mid then exit(min(mark[x],ask(x+x,l,mid,p)))
 42     else exit(min(mark[x],ask(x+x+1,mid+1,r,p)));
 43 end;
 44 function findright(x,l,r,nowl,nowr:longint):longint;
 45 var mid:longint;
 46 begin
 47   if((nowl<=l)and(r<=nowr))or(x=0) then exit(segv[x].right);
 48   mid:=(l+r)shr 1;
 49   if nowr<=mid then exit(findright(segv[x].l,l,mid,nowl,nowr));
 50   if nowl>mid then exit(findright(segv[x].r,mid+1,r,nowl,nowr));
 51   exit(max(findright(segv[x].l,l,mid,nowl,nowr),findright(segv[x].r,mid+1,r,nowl,nowr)));
 52 end;
 53 procedure modify(var x:longint;l,r,p,v:longint);
 54 var mid:longint;
 55 begin
 56   if x=0 then
 57   begin
 58     inc(tot);
 59     x:=tot;
 60   end;
 61   segv[x].right:=max(segv[x].right,v);
 62   if l<r then
 63   begin
 64     mid:=(l+r)shr 1;
 65     if p<=mid then modify(segv[x].l,l,mid,p,v)
 66       else modify(segv[x].r,mid+1,r,p,v);
 67   end;
 68 end;
 69 begin
 70   readln(n);
 71   for i:=1 to n do read(a[i]);
 72   readln(m);
 73   for i:=1 to m do readln(ques[i].l,ques[i].r);
 74   fillchar(last,sizeof(last),0);
 75   for i:=1 to m do
 76   begin
 77     ques[i].next:=last[ques[i].r];
 78     last[ques[i].r]:=i;
 79   end;
 80   build(1,1,n);
 81   root:=0;
 82   tot:=0;
 83   segv[0].right:=0;
 84   for i:=1 to n do
 85   begin
 86     if i>1 then
 87     begin
 88       l:=a[i];
 89       r:=maxv;
 90       while true do
 91       begin
 92         id:=findright(root,0,maxv,l,r);
 93         if id=0 then break;
 94         update(1,1,n,1,id,a[id]-a[i]);
 95         if a[i]=a[id] then break;
 96         r:=(a[i]+a[id])shr 1;
 97       end;
 98       l:=0;
 99       r:=a[i];
100       while true do
101       begin
102         id:=findright(root,0,maxv,l,r);
103         if id=0 then break;
104         update(1,1,n,1,id,a[i]-a[id]);
105         if a[i]=a[id] then break;
106         l:=(a[i]+a[id])shr 1+1;
107       end;
108     end;
109     j:=last[i];
110     while j>0 do
111     begin
112       ans[j]:=ask(1,1,n,ques[j].l);
113       j:=ques[j].next;
114     end;
115     modify(root,0,maxv,a[i],i);
116   end;
117   for i:=1 to m do writeln(ans[i]);
118 end.