1278. 排队 (Standard IO)

Description

每天,农夫 John 的N(1 <= N <= 50,000)头牛总是按同一序列排队. 有一天, John决定让一些牛们玩一场飞盘比赛. 他准备找一群在对列中为置连续的牛来进行比赛.但是为了避免水平悬殊,牛的身高不应该相差太大.
John 准备了Q (1 <= Q <= 180,000) 个可能的牛的选择和所有牛的身高 (1 <=身高 <= 1,000,000). 他想知道每一组里面最高和最低的牛的身高差别.

Input

第一行: N 和 Q.
第2..N+1行: 第i+1行是第i头牛的身高.
第N+2..N+Q+1行: 两个整数, A 和 B (1 <= A <= B <= N), 表示从A到B的所有牛.

Output

第1..Q行: 所有询问的回答 (最高和最低的牛的身高差), 每行一个.

Sample Input

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.

你可能感兴趣的:(线段树)