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

Splay

[ Submit][ Status][ Discuss]