treap bzoj1503

一开始写残了。。

program hehe;
type
 shu=record
  l,r,h,w,s,y:longint;
 end;
var
 c:char;
 leave,add,min,size,root,n,i,j,k:longint;
 x:array[0..100000] of shu;

  procedure update(a:longint);
  begin
   x[a].s:=x[x[a].l].s+x[x[a].r].s+x[a].w;
  end;

  procedure lturn(var a:longint);
  var
   t:longint;
  begin
   t:=x[a].r;
   x[a].r:=x[t].l;
   x[t].l:=a;
   x[t].s:=x[a].s;
   update(a);
   a:=t;
  end;

  procedure rturn(var a:longint);
  var
   t:longint;
  begin
   t:=x[a].l;
   x[a].l:=x[t].r;
   x[t].r:=a;
   x[t].s:=x[a].s;
   update(a);
   a:=t;
  end;

  procedure insert(var a:longint;b:longint);
  begin
   if a=0 then
   begin
    inc(size);
    a:=size;
    x[a].s:=1;
    x[a].w:=1;
    x[a].h:=b;
    x[a].y:=random(maxlongint);
    exit;
   end;
   inc(x[a].s);
   if x[a].h=b then
   begin
    inc(x[a].w);
    exit;
   end;
   if b>x[a].h then
   begin
    insert(x[a].r,b);
    if x[x[a].r].y<x[a].y then lturn(a);
    exit;
   end;
   insert(x[a].l,b);
   if x[x[a].l].y<x[a].y then rturn(a);
  end;

  function delete(var a:longint;b:longint):longint;
  var
   t:longint;
  begin
   if a=0 then exit(0);
   if x[a].h<b then
   begin
    t:=x[x[a].l].s+x[a].w;
    a:=x[a].r;
    exit(t+delete(a,b));
   end;
   t:=delete(x[a].l,b);
   x[a].s:=x[a].s-t;
   exit(t);
  end;

  function find(a,b:longint):longint;
  begin
   if x[x[a].l].s+x[a].w<b then exit(find(x[a].r,b-x[x[a].l].s-x[a].w));
   if x[x[a].l].s>=b then exit(find(x[a].l,b));
   exit(x[a].h+add);
  end;

begin
 readln(n,min);
 for i:=1 to n do
 begin
  read(c);
  readln(k);
  case c of
   'I':if k>=min then insert(root,k-add);
   'A':add:=add+k;
   'S':begin
        add:=add-k;
        leave:=leave+delete(root,min-add);
       end;
   'F':if x[root].s<k then writeln('-1')
       else writeln(find(root,x[root].s-k+1));
  end;
 end;
 writeln(leave);
end.

1503: [NOI2004]郁闷的出纳员

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 7591  Solved: 2661
[Submit][Status][Discuss]

Description

OIER公司是一家大型专业化软件公司，有着数以万计的员工。作为一名出纳员，我的任务之一便是统计每位员工的工资。这本来是一份不错的工作，但是令人郁闷的是，我们的老板反复无常，经常调整员工的工资。如果他心情好，就可能把每位员工的工资加上一个相同的量。反之，如果心情不好，就可能把他们的工资扣除一个相同的量。我真不知道除了调工资他还做什么其它事情。工资的频繁调整很让员工反感，尤其是集体扣除工资的时候，一旦某位员工发现自己的工资已经低于了合同规定的工资下界，他就会立刻气愤地离开公司，并且再也不会回来了。每位员工的工资下界都是统一规定的。每当一个人离开公司，我就要从电脑中把他的工资档案删去，同样，每当公司招聘了一位新员工，我就得为他新建一个工资档案。老板经常到我这边来询问工资情况，他并不问具体某位员工的工资情况，而是问现在工资第k多的员工拿多少工资。每当这时，我就不得不对数万个员工进行一次漫长的排序，然后告诉他答案。好了，现在你已经对我的工作了解不少了。正如你猜的那样，我想请你编一个工资统计程序。怎么样，不是很困难吧？

Input

Output

输出文件的行数为F命令的条数加一。对于每条F命令，你的程序要输出一行，仅包含一个整数，为当前工资第k多的员工所拿的工资数，如果k大于目前员工的数目，则输出-1。输出文件的最后一行包含一个整数，为离开公司的员工的总数。

Sample Input

9 10
I 60
I 70
S 50
F 2
I 30
S 15
A 5
F 1
F 2

Sample Output

10
20
-1
2

HINT

I命令的条数不超过100000 A命令和S命令的总条数不超过100 F命令的条数不超过100000 每次工资调整的调整量不超过1000 新员工的工资不超过100000

Source

Splay

[Submit][Status][Discuss]