sum

1420. 【汕头市选2012初中组】求和(sum) 
(File IO): input:sum.in output:sum.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

ftiasch 有很多糖果，分成了N 堆，排成一列。ftiasch 说，如果nm 能迅速求出第L 堆到第R 堆一

共有多少糖果，就把这些糖果都给他。

现在给出每堆糖果的数量，以及每次询问的L 和R，你需要帮助nm，把每次询问的结果求出来。

注意，你不需要考虑糖果被nm 取走的情况。

输入

第1 行，2 个整数N, M, 分别表示堆数和询问数量。第2 行，N 个整数Ai，表示第i 堆糖果的数

量。第3 (M + 2) 行，每行2 个整数Li, Ri，表示第i 个询问是[Li;Ri]。

输出

M 行，对于每个询问，输出对应的和。

样例输入

5 5

1 2 3 4 5

1 5

2 4

3 3

1 3

3 5

样例输出

15

9

3

6

12

数据范围限制

提示

数据范围

• 对于50% 的数据，1<=N;M <=100。

• 对于100% 的数据，1 <= N;M<= 100 000，0<= Ai <= 10 000，1 <= Li<= Ri<= N。

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]:=i+j;
                r[l,r[l,0,1],2]:=u;
                r[u,r[u,0,1],1]:=i+j;
                r[u,r[u,0,1],2]:=l;
                exit(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(i1+j1);
        end;
end;
begin
        assign(input,'sum.in');reset(input);
        assign(output,'sum.out');rewrite(output);
        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;
        close(input);
        close(output);
end.