bzoj 1012 基础线段树

原题传送门：http://www.lydsy.com/JudgeOnline/problem.php?id=1012

今儿一天状态不好，都没怎么刷题。。快下课了，刷道水题。。。。

裸的线段树

/**************************************************************
    Problem:
    User: BLADEVIL
    Language: Pascal
    Result: Accepted
    Time: ms
    Memory: kb
****************************************************************/

//By BLADEVIL
type
    rec                     =record
        left, right, max    :longint;
    end;

var
    query                   :array[..] of longint;
    querys                  :array[..] of char;
    m, d                    :longint;
    n                       :longint;
    t                       :array[..] of rec;
    tot                     :longint;
    tt                      :longint;

function max(a,b:longint):longint;
begin
    if a>b then max:=a else max:=b;
end;

procedure build(x,l,r:longint);
var
    mid                     :longint;
begin
    t[x].left:=l; t[x].right:=r;
    if l=r then exit;
    mid:=(r+l) div ;
    build(x*,l,mid);
    build(x*+,mid+,r);
end;

procedure init;
var
    i                       :longint;
begin
    readln(m,d);
    for i:= to m do
    begin
        read(querys[i]);
        readln(query[i]);
    end;
    for i:= to m do if querys[i]='A' then inc(n);
    build(,,n);
end;

procedure change(x,y,z:longint);
var
    mid                     :longint;
begin
    if (t[x].left=y) and (t[x].right=y) then
    begin
        t[x].max:=z;
        exit;
    end;
    with t[x] do mid:=(left+right) div ;
    if y>mid then change(x*+,y,z) else change(x*,y,z);
    t[x].max:=max(t[x*].max,t[x*+].max);
end;

function ask(x,l,r:longint):longint;
var
    mid                     :longint;
begin
    if (t[x].left=l) and (t[x].right=r) then
    begin
        ask:=t[x].max;
        exit;
    end;
    with t[x] do mid:=(right+left) div ;
    if l>mid then ask:=ask(x*+,l,r) else
    if r<=mid then ask:=ask(x*,l,r) else
    ask:=max(ask(x*,l,mid),ask(x*+,mid+,r));
end;

procedure main;
var
    i                       :longint;

begin
    tot:=;
    tt:=;
    for i:= to m do
    begin
        if querys[i]='A' then
        begin
            inc(tot);
            change(,tot,(query[i]+tt) mod d);
        end else
        begin
            tt:=ask(,tot-query[i]+,tot);
            writeln(tt);
        end;
    end;
end;

begin
    init;
    main;
end.