[JSOI2008]最大数maxnumber

Time Limit: 3 Sec    Memory Limit: 162 MB

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< div>

Output

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

Sample Input

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

Sample Output

96
93
96

 

这是道比较简单的线段树的题目。操作数为200000，就开个200000*8的数组，然后维护就可以了。。。每一个数组单元记录某段长度内的最大值。

 

AC CODE

 

program hy_1012;

var a: array [ 1..1000000 ] of longint ;

     s,t,m,n,i,fin,ans,mo,tt,l,z: longint ;

     command: char ;

//============================================================================

procedure ins(be,en,now: longint );

var mid: longint ;

begin

   if be=en then

   begin a[now]:=z; exit; end ;

   mid:=(be+en) div 2 ;

   if fin<=mid then ins(be,mid,now shl 1 ) else

   ins(mid+ 1 ,en,now shl 1 + 1 );

   if a[now shl 1 ]>a[now shl 1 + 1 ] then a[now]:=a[now shl 1 ] else

   a[now]:=a[now shl 1 + 1 ];

end ;

//============================================================================

procedure ask(be,en,now: longint );

var mid: longint ;

begin

   if (be>=s) and (en<=t) then

   begin

     if a[now]>ans then ans:=a[now];

     exit;

   end ;

   mid:=(be+en) div 2 ;

   if t<=mid then ask(be,mid,now shl 1 ) else

   if s>mid then ask(mid+ 1 ,en,now shl 1 + 1 ) else

   begin

     ask(be,mid,now shl 1 );

     ask(mid+ 1 ,en,now shl 1 + 1 );

   end ;

end ;

//============================================================================

begin

   readln(m,mo);

   tt:= 0 ; fin:= 0 ; n:= 200000 ;   //fin表示当前数目个数。tt表示上次查询的值。

   begin

     read(command);

     if command= 'A' then

     begin

       readln(z); inc(fin);

       z:=(z+tt) mod mo; ins( 1 ,n, 1 );

     end else

     begin

       readln(l);

       s:=fin-l+ 1 ; t:=fin;

       ans:=-maxlongint; ask( 1 ,n, 1 );

       writeln (ans); tt:=ans;

     end ;

   end ;

end .