RMQ

题目描述

2008年9月25日 21 点10分，酒泉卫星发射中心指控大厅里，随着指挥员一声令下，长征二号F型火箭在夜空下点火起飞，神舟七号飞船载着翟志刚、刘伯明、景海鹏3位航天员，在戈壁茫茫的深邃夜空中飞向太空，开始人类漫步太空之旅。第583秒，火箭以7.5公里／秒的速度，将飞船送到近地点200公里、远地点350公里的椭圆轨道入口。而此时，火箭的燃料也消耗殆尽，即将以悲壮的方式与飞船告别。这个过程，在短短不到10分钟时间内，翟志刚和他的两名战友体会到了从超重到失重的过程。

除了超重和失重的感觉之外，就是浩瀚的长空中璀璨的星星，和地面上看到的星星不同，在太空中看到的星星是成一条直线的，一共有N(1<=N<=100,000)颗星星，编号为1到N,每个星星有自己的体积，由于在飞船中很无聊，除了不停地玩弄手中失重的书和笔之外没有别的事可干，此时翟志刚说我们来玩游戏吧，一共玩了M轮(1<=M<=100,000)，每一轮都是给出两个整数L和R(1<=L<=R<=N)，询问第L到第R颗星星之间最大星星的体积，每次答对的人就可以多休息一段时间。

由于翟志刚还要进行太空漫步，所以他现在请你帮忙，你得到的回报就是太空饼干。

输入

第一行输入N,M

接下来一行N个整数，表示星星的体积(1<=体积<=maxlongint)

接下来M行，每行两个整数L_i,R_i,表示询问区间。

输出

    输出M行，每一行表示询问区间L_i到R_i之间最大星星的体积。

样例输入

6 3

5 7 3 9 2 10

1 3

2 4

3 6

样例输出

7

9

10

uses math;
var
        a,b,c,i,j,k:longint;
        v:array[1..100000]of longint;
        r:array[1..100000,0..20,1..2]of longint;
function ss(l,u:longint):longint;
var
        i,j:longint;
begin
        if l=u then
        begin
                inc(r[l,0,1]);
                inc(r[u,0,1]);
                r[l,r[l,0,1],1]:=v[l];
                r[l,r[l,0,1],2]:=u;
                r[u,r[u,0,1],1]:=v[l];
                r[u,r[u,0,1],2]:=l;
                exit(v[l]);
        end
                else
        begin
                i:=ss(l,(u+l) div 2);
                j:=ss((u+l) div 2+1,u);
                inc(r[l,0,1]);
                inc(r[u,0,1]);
                r[l,r[l,0,1],1]:=max(i,j);
                r[l,r[l,0,1],2]:=u;
                r[u,r[u,0,1],1]:=max(i,j);
                r[u,r[u,0,1],2]:=l;
                exit(max(i,j));
        end;
end;
function yy(l,u,i,j:longint):longint;
var
        i1,j1,o:longint;
begin
        i1:=0;
        j1:=0;
        if (i=l)and(j=u) then
        begin
                for o:=1 to r[l,0,1] do
                begin
                        if r[l,o,2]=u then
                                exit(r[l,o,1]);
                end;
        end
                else
        begin
        if (i>=l)and(i<=(u+l) div 2)and(j>=l)and(j<=(u+l) div 2) then
                i1:=yy(l,(u+l) div 2,i,j);
        if (i>=(u+l) div 2+1)and(i<=u)and(j>=(u+l) div 2+1)and(j<=u) then
                j1:=yy((u+l) div 2+1,u,i,j);
        if (i>=l)and(i<=(u+l) div 2)and(j>=(u+l) div 2+1)and(j<=u) then
        begin
                i1:=yy(l,(u+l) div 2,i,(u+l) div 2);
                j1:=yy((u+l) div 2+1,u,(u+l) div 2+1,j);
        end;
        exit(max(i1,j1));
        end;
end;
begin
        readln(a,b);
        for c:=1 to a do
                read(v[c]);
        ss(1,a);
        for c:=1 to b do
        begin
                readln(i,j);
                writeln(yy(1,a,i,j));
        end;
end.