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 35 7 3 9 2 101 32 43 6

样例输出

7910

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.