Review-单调栈(Bzoj1012)

1012: [JSOI2008]最大数maxnumber

Time Limit: 3 Sec   Memory Limit: 162 MB
Submit: 4555   Solved: 2052
[ Submit][ Status]

Description

现在请求你维护一个数列，要求提供以下两种操作： 1、 查询操作。语法：Q L 功能：查询当前数列中末尾L个数中的最大的数，并输出这个数的值。限制：L不超过当前数列的长度。 2、 插入操作。语法：A n 功能：将n加上t，其中t是最近一次查询操作的答案（如果还未执行过查询操作，则t=0)，并将所得结果对一个固定的常数D取模，将所得答案插入到数列的末尾。限制：n是非负整数并且在长整范围内。注意：初始时数列是空的，没有一个数。

Input

第一行两个整数，M和D，其中M表示操作的个数(M <= 200,000)，D如上文中所述，满足(0

Output

对于每一个查询操作，你应该按照顺序依次输出结果，每个结果占一行。

Sample Input

5 100
A 96
Q 1
A 97
Q 1
Q 2

Sample Output

96
93
96

HINT

Source

题解：单调栈+二分

代码：

program pro;
var
    stack:array[0..200000]of longint;
    time:array[0..200000]of longint;
    m,d,top,tot:longint;
 
procedure main;
var
    i,j,tmp,num,l,r,meo,ans,mid:longint;
    ch:char;
begin
    top:=0; meo:=0;
    readln(m,d);
    for i:=1 to m do
    begin
        read(ch);
        case ch of
        'A':
        begin
            readln(tmp);
            inc(tmp,meo);
            tmp:=tmp mod d;
            while (top>0)and(stack[top]<tmp) do dec(top);
            inc(top); stack[top]:=tmp; inc(tot); time[top]:=tot;
        end;
        'Q':
        begin
            readln(num);
            l:=1; r:=top;
            while l<=r do
            begin
                mid:=(l+r)shr 1;
                if time[mid]>(tot-num) then
                begin
                    ans:=stack[mid];
                    r:=mid-1;
                end
                else l:=mid+1;
            end;
            meo:=ans;
            writeln(ans);
        end;
        end;
    end;
end;
 
begin
 main;
end.