JSOI2008最大数（线段树）

注意到数列只增不减，而题目中又明确说道m<=200000;这样的数据规模线段树完全可以承受得了。所以我们可以事先建好一棵200000个子节点的线段树，然后求极值就好了。

type node=record l,r,mx:longint;end;
var i,j,m,p,x,tmp,tot:longint;
    ch:char;
    t:array[0..1500000] of node;
    function max(x,y:longint):longint;
     begin
     if x>y then exit(x) else exit(y);
     end;
procedure build(x,y,k:longint);
 var mid:longint;
 begin
 with t[k] do
  begin
   l:=x;r:=y;
   if l=r then exit;
   mid:=(l+r)>>1;
   build(x,mid,k<<1);
   build(mid+1,r,k<<1+1);
  end;
 end;
procedure change(x,y,k:longint);
 var mid:longint;
 begin
 with t[k] do
  begin
   if l=r then
    begin
    mx:=y;
    exit;
    end;
   mid:=(l+r)>>1;
   if x>mid then change(x,y,k<<1+1)
   else change(x,y,k<<1);
  mx:=max(t[k<<1].mx,t[k<<1+1].mx);
  end;
 end;
function getmx(x,y,k:longint):longint;
 var mid:longint;
 begin
 with t[k] do
  begin
  if (l=x) and (r=y) then exit(mx);
  mid:=(l+r)>>1;
  if x>mid then exit(getmx(x,y,k<<1+1))
  else if y<=mid then exit(getmx(x,y,k<<1))
  else exit(max(getmx(x,mid,k<<1),getmx(mid+1,y,k<<1+1)));
  end;
 end;
procedure main;
 begin
 build(1,200000,1);
 readln(m,p);tmp:=0;tot:=0;
 for i:=1 to m do
  begin
   read(ch);
   if ch='A' then
    begin
    readln(x);
    inc(tot);
    change(tot,(x+tmp) mod p,1);
    end
   else
    begin
    readln(x);
    tmp:=getmx(tot-x+1,tot,1);
    writeln(tmp);
    end;
  end;
 end;
begin
 main;
end.                 

不过话说起来，1A的感觉真棒！

（update：ms还可以用单调栈，不过没实现过）