一开始写残了。。

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
      
       =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':begin101         add:=add-k;102         leave:=leave+delete(root,min-add);103        end;104    'F':if x[root].s
      

1503: [NOI2004]郁闷的出纳员

Time Limit: 5 Sec  Memory Limit: 64 MB

Submit: 7591  Solved: 2661

[][][]

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

[ ][ ][ ]