Luogu P1198 [JSOI2008]最大数 线段树

P1198 [JSOI2008]最大数

题目描述

现在请求你维护一个数列，要求提供以下两种操作：

1、 查询操作。

语法：Q L

功能：查询当前数列中末尾L个数中的最大的数，并输出这个数的值。

限制：L不超过当前数列的长度。

2、 插入操作。

语法：A n

功能：将n加上t，其中t是最近一次查询操作的答案（如果还未执行过查询操作，则t=0)，并将所得结果对一个固定的常数D取模，将所得答案插入到数列的末尾。

限制：n是整数（可能为负数）并且在长整范围内。

注意：初始时数列是空的，没有一个数。

输入输出格式

输入格式：

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

接下来的M行，每行一个字符串，描述一个具体的操作。语法如上文所述。

输出格式：

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

输入输出样例

输入样例#1：

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

输出样例#1：

96
93
96

说明

[JSOI2008]

思路

线段树小试牛刀！qwq

先建一颗空的线段树，然后每次把值插入，用num统计个数

然后每次查询num-n+1到num这个区间的最大值输出就是啦

代码

program maxnumber;
const
  inf='maxnumber.in';
  outf='maxnumber.out';
type
  tree=^node;
  node=record
          lc,rc:tree;
          l,r,val:longint;
       end;

var
  i,m,n,d,ctot,num,l:longint;
  ch:char;
  t:tree;
  s,e,a:array[1..200000] of longint;

function max(aa,bb:longint):longint;
begin
  if aa>bb then exit(aa)
    else exit(bb);
end;

function min(aa,bb:longint):longint;
begin
  if aa>bb then exit(bb)
    else exit(aa);
end;

procedure add(apple:longint);
begin
    inc(num);
    a[num]:=apple mod d;
end;

procedure add(var t:tree; seat:longint; data:longint);
begin
    if t^.l=t^.r then begin
                        t^.val:=max(t^.val,data);
                        exit;
                      end;
    if seat<=t^.lc^.r then add(t^.lc,seat,data)
    else add(t^.rc,seat,data);
    t^.val:=max(t^.val,data);
end;

procedure build(var t:tree; l,r:longint);
var
  mid:longint;
begin
    new(t);
    t^.l:=l;    t^.r:=r;
    if l=r then begin
                  t^.val:=a[l];
                  exit;
                end;
    mid:=(l+r) div 2;
    build(t^.lc,l,mid);
    build(t^.rc,mid+1,r);
    t^.val:=max(t^.lc^.val,t^.rc^.val);
end;

function query(var t:tree; l,r:longint):longint;
var
  mm:longint;
begin
   if (t^.l=t^.r) or ((t^.l>=l) and (t^.r<=r)) then exit(t^.val);
   mm:=-maxlongint;
   if l<=t^.lc^.r then mm:=query(t^.lc,l,min(t^.lc^.r,r));
   if r>=t^.rc^.l then mm:=max(mm,query(t^.rc,max(t^.rc^.l,l),r));
   exit(mm);
end;

begin
 // assign(input,inf);    assign(output,outf);
  reset(input);     rewrite(output);

  readln(m,d);
  build(t,1,m);
  l:=0;
  for i:= 1 to m do
   begin
     readln(ch,n);
     if ch='A' then begin num:=num+1;   add(t,num,(n+l) mod d);   end
       else begin
              l:=query(t,num-n+1,num);
              writeln(l);
            end;
   end;

  close(input);
  close(output);
end.