51nod 1463找朋友

给定：

两个长度为n的数列A 、B

一个有m个元素的集合K

询问Q次

每次询问[l,r]，输出区间内满足|Bi-Bj|∈K 的最大Ai+Aj

数据约定：

n,Q<=100000

m <= 10

0<=A[i]<=1000000000

1<=B[i]<=n

1<=K[i]<=n

保证B[i]互不相等

Input

n Q m

A1 A2 ….An

B1 B2 ….Bn

K1 K2 ….Km

l1 r1

l2 r2

.

.

lQ rQ

Output

Q行，每行一个整数表示相对应的答案。

如果找不到这样的两个数则输出0。

Input示例

4 2 2

1 2 3 4

3 2 1 4

1 3

1 4

2 3

Output示例

7

5

一开始根据b<=n直接就想到可以把所有的可行的BI,BJ全部求出来然后直接更新？然而没想到有什么数据结构能这么做。。

不得不看一波题解，感觉思路很巧妙。

先把询问按照右端点排序，然后每次左边界是固定的，所以只用考虑右边界，每次把范围内的合法对求出来然后在线段树里更新，注意这里的更新和普通的更新不同，因为线段树里存储的所有店实际上是1-i的区间最大答案，所以只要区间小于更新点的点全部都要更新，具体看代码。

uses math;
type node=record
l,r,id:longint;
end;
var
i,j,k,p,n,m,s,t,res,x,y:longint;
b,a,c,tr,ans,re,d:array[0..400000]of int64;
q:array[0..400000]of node;
procedure qsort(l,r:longint);
var
i,j,m:longint;
t:node;
begin
i:=l;
j:=r;
m:=q[(l+r)div 2].r;
repeat
while q[i].r<m do inc(i);
while q[j].r>m do dec(j);
if i<=j then
begin
t:=q[i];
q[i]:=q[j];
q[j]:=t;
inc(i);
dec(j);
end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
procedure insert(x,l,r,num,v:longint);
var
m:longint;
begin
tr[x]:=max(tr[x],v);
if (l=num)and(r=num)then exit;
m:=(l+r)div 2;
if num<=m then insert(x*2,l,m,num,v)
else if num>m then insert(x*2+1,m+1,r,num,v);
end;
procedure find(x,l,r,l1,r1:longint);
var
m:longint;
begin
if (l=l1)and(r=r1)then
begin
res:=max(tr[x],res);
exit;
end;
m:=(l+r)div 2;
if r1<=m then find(x*2,l,m,l1,r1)
else if l1>m then find(x*2+1,m+1,r,l1,r1)
else begin
find(x*2,l,m,l1,m);
find(x*2+1,m+1,r,m+1,r1);
end;
end;
begin
readln(n,t,m);
fillchar(re,sizeof(re),0);
fillchar(c,sizeof(c),0);
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
read(b[i]);
c[b[i]]:=i;
end;
for i:=1 to m do read(d[i]);
for i:=1 to t do
begin
read(q[i].l,q[i].r);
q[i].id:=i;
end;
qsort(1,t);

s:=1;
for i:=1 to t do
begin
for j:=s to q[i].r do
begin
for k:=1 to m do
begin
x:=b[j]+d[k];
if x<=n then
y:=c[x];
if (x<=n)and(y<j)and(a[j]+a[y]>re[y])then
begin
re[y]:=a[j]+a[y];
insert(1,1,n,y,re[y]);
end;
x:=b[j]-d[k];
if x<0 then continue;
y:=c[x];
if (x>=1)and(y<j)and(a[j]+a[y]>re[y])then
begin
re[y]:=a[j]+a[y];
insert(1,1,n,y,re[y]);
end;
end;
end;
res:=0;
find(1,1,n,q[i].l,q[i].r);
ans[q[i].id]:=res;
s:=q[i].r;
end;
for i:=1 to t do writeln(ans[i]);
end.