treap bzoj1503

一开始写残了。。
  1 program hehe;
  2 type
  3  shu=record
  4   l,r,h,w,s,y:longint;
  5  end;
  6 var
  7  c:char;
  8  leave,add,min,size,root,n,i,j,k:longint;
  9  x:array[0..100000] of shu;
 10 
 11   procedure update(a:longint);
 12   begin
 13    x[a].s:=x[x[a].l].s+x[x[a].r].s+x[a].w;
 14   end;
 15 
 16   procedure lturn(var a:longint);
 17   var
 18    t:longint;
 19   begin
 20    t:=x[a].r;
 21    x[a].r:=x[t].l;
 22    x[t].l:=a;
 23    x[t].s:=x[a].s;
 24    update(a);
 25    a:=t;
 26   end;
 27 
 28   procedure rturn(var a:longint);
 29   var
 30    t:longint;
 31   begin
 32    t:=x[a].l;
 33    x[a].l:=x[t].r;
 34    x[t].r:=a;
 35    x[t].s:=x[a].s;
 36    update(a);
 37    a:=t;
 38   end;
 39 
 40   procedure insert(var a:longint;b:longint);
 41   begin
 42    if a=0 then
 43    begin
 44     inc(size);
 45     a:=size;
 46     x[a].s:=1;
 47     x[a].w:=1;
 48     x[a].h:=b;
 49     x[a].y:=random(maxlongint);
 50     exit;
 51    end;
 52    inc(x[a].s);
 53    if x[a].h=b then
 54    begin
 55     inc(x[a].w);
 56     exit;
 57    end;
 58    if b>x[a].h then
 59    begin
 60     insert(x[a].r,b);
 61     if x[x[a].r].y<x[a].y then lturn(a);
 62     exit;
 63    end;
 64    insert(x[a].l,b);
 65    if x[x[a].l].y<x[a].y then rturn(a);
 66   end;
 67 
 68   function delete(var a:longint;b:longint):longint;
 69   var
 70    t:longint;
 71   begin
 72    if a=0 then exit(0);
 73    if x[a].h<b then
 74    begin
 75     t:=x[x[a].l].s+x[a].w;
 76     a:=x[a].r;
 77     exit(t+delete(a,b));
 78    end;
 79    t:=delete(x[a].l,b);
 80    x[a].s:=x[a].s-t;
 81    exit(t);
 82   end;
 83 
 84   function find(a,b:longint):longint;
 85   begin
 86    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));
 87    if x[x[a].l].s>=b then exit(find(x[a].l,b));
 88    exit(x[a].h+add);
 89   end;
 90 
 91 begin
 92  readln(n,min);
 93  for i:=1 to n do
 94  begin
 95   read(c);
 96   readln(k);
 97   case c of
 98    'I':if k>=min then insert(root,k-add);
 99    'A':add:=add+k;
100    'S':begin
101         add:=add-k;
102         leave:=leave+delete(root,min-add);
103        end;
104    'F':if x[root].s<k then writeln('-1')
105        else writeln(find(root,x[root].s-k+1));
106   end;
107  end;
108  writeln(leave);
109 end.
View Code

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

[Submit][Status][Discuss]
posted @ 2015-06-23 19:12  ChenThree  阅读(93)  评论(0编辑  收藏  举报