Description
每天,农夫 John 的N(1 <= N <= 50,000)头牛总是按同一序列排队. 有一天, John决定让一些牛们玩一场飞盘比赛. 他准备找一群在对列中为置连续的牛来进行比赛.但是为了避免水平悬殊,牛的身高不应该相差太大.
John 准备了Q (1 <= Q <= 180,000) 个可能的牛的选择和所有牛的身高 (1 <=身高 <= 1,000,000). 他想知道每一组里面最高和最低的牛的身高差别.
第一行: N 和 Q.
第2..N+1行: 第i+1行是第i头牛的身高.
第N+2..N+Q+1行: 两个整数, A 和 B (1 <= A <= B <= N), 表示从A到B的所有牛.
Output
第1..Q行: 所有询问的回答 (最高和最低的牛的身高差), 每行一个.
6 3
1
7
3
4
2
5
1 5
4 6
2 2
Sample Output
6
3
0
思路
O(logn)
线段树,记录每个区间内最大和最小的值。
var
a:array[1..200000] of longint;
f:array[1..200000,1..2] of longint;
min,max,x:longint;
procedure js(l,r,i:longint);
var
mid:longint;
begin
mid:=(l+r) div 2;
if l=r then
begin
inc(x);
f[i,1]:=a[x];
f[i,2]:=a[x];
end
else
begin
js(l,mid,i*2);
js(mid+1,r,i*2+1);
f[i,1]:=f[i*2,1];
if f[i*2+1,1]1] then f[i,1]:=f[i*2+1,1];
f[i,2]:=f[i*2,2];
if f[i*2+1,2]>f[i,2] then f[i,2]:=f[i*2+1,2];
end;
end;
procedure z(l,r,p,q,i:longint);
var
mid:longint;
begin
mid:=(l+r) div 2;
if (l=p) and (r=q) then
begin
if f[i,1]then min:=f[i,1];
if f[i,2]>max then max:=f[i,2];
exit;
end;
if q<=mid then z(l,mid,p,q,i*2)
else
if p>mid then z(mid+1,r,p,q,i*2+1)
else
begin
z(l,mid,p,mid,i*2);
z(mid+1,r,mid+1,q,i*2+1);
end;
end;
var
i,j,n,m,p,q:longint;
begin
readln(n,m);
for i:=1 to n do
readln(a[i]);
js(1,n,1);
for i:=1 to m do
begin
readln(p,q);
min:=maxlongint;
max:=0;
z(1,n,p,q,1);
writeln(max-min);
end;
end.