noi2004 郁闷的出纳员

额，话说上午就写这个郁闷了一上午，debug半天结果是因为离开的总人数不算一开始就离开的人，他的题目叙述有问题。

郁闷的出纳员

 

【问题描述】

OIER公司是一家大型专业化软件公司，有着数以万计的员工。作为一名出纳员，我的任务之一便是统计每位员工的工资。这本来是一份不错的工作，但是令人郁闷的是，我们的老板反复无常，经常调整员工的工资。如果他心情好，就可能把每位员工的工资加上一个相同的量。反之，如果心情不好，就可能把他们的工资扣除一个相同的量。我真不知道除了调工资他还做什么其它事情。

工资的频繁调整很让员工反感，尤其是集体扣除工资的时候，一旦某位员工发现自己的工资已经低于了合同规定的工资下界，他就会立刻气愤地离开公司，并且再也不会回来了。每位员工的工资下界都是统一规定的。每当一个人离开公司，我就要从电脑中把他的工资档案删去，同样，每当公司招聘了一位新员工，我就得为他新建一个工资档案。

老板经常到我这边来询问工资情况，他并不问具体某位员工的工资情况，而是问现在工资第k多的员工拿多少工资。每当这时，我就不得不对数万个员工进行一次漫长的排序，然后告诉他答案。

好了，现在你已经对我的工作了解不少了。正如你猜的那样，我想请你编一个工资统计程序。怎么样，不是很困难吧？

 

【输入文件】

第一行有两个非负整数n和min。n表示下面有多少条命令，min表示工资下界。

接下来的n行，每行表示一条命令。命令可以是以下四种之一：

名称	格式	作用
I命令	I_k	新建一个工资档案，初始工资为k。如果某员工的初始工资低于工资下界，他将立刻离开公司。
A命令	A_k	把每位员工的工资加上k
S命令	S_k	把每位员工的工资扣除k
F命令	F_k	查询第k多的工资

_（下划线）表示一个空格，I命令、A命令、S命令中的k是一个非负整数，F命令中的k是一个正整数。

在初始时，可以认为公司里一个员工也没有。

 

【输出文件】

输出文件的行数为F命令的条数加一。

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

输出文件的最后一行包含一个整数，为离开公司的员工的总数。

 

 

【样例输入】

9 10

I 60

I 70

S 50

F 2

I 30

S 15

A 5

F 1

F 2

 

【样例输出】

10

20

-1

2

 

【约定】

l  I命令的条数不超过100000

l  A命令和S命令的总条数不超过100

l  F命令的条数不超过100000

l  每次工资调整的调整量不超过1000

l  新员工的工资不超过100000

 

简略题解：

   好吧，很裸的平衡树吧。。

附程序：

program cashier; var ctree:array[0..1000000] of record l,r,size,key:longint; end; n,min,delta,root,ans,tot:longint; {-----------------------------------} procedure tl(var u:longint); var t:longint; begin t:=ctree[u].r; ctree[u].r:=ctree[t].l; ctree[t].l:=u; ctree[t].size:=ctree[u].size; ctree[u].size:=ctree[ctree[u].l].size+ctree[ctree[u].r].size+1; u:=t; end; {-----------------------------------} procedure tr(var u:longint); var t:longint; begin t:=ctree[u].l; ctree[u].l:=ctree[t].r; ctree[t].r:=u; ctree[t].size:=ctree[u].size; ctree[u].size:=ctree[ctree[u].l].size+ctree[ctree[u].r].size+1; u:=t; end; {-----------------------------------} procedure maintain(var u:longint); begin if ctree[ctree[ctree[u].l].l].size>ctree[ctree[u].r].size then tr(u) else if ctree[ctree[ctree[u].l].r].size>ctree[ctree[u].r].size then begin tl(ctree[u].l);tr(u); end else if ctree[ctree[ctree[u].r].r].size>ctree[ctree[u].l].size then tl(u) else if ctree[ctree[ctree[u].r].l].size>ctree[ctree[u].l].size then begin tr(ctree[u].r);tl(u); end; end; {-----------------------------------} procedure insert(var u:longint;key:longint); begin if u=0 then begin inc(tot); ctree[tot].key:=key; ctree[tot].size:=1; ctree[tot].l:=0; ctree[tot].r:=0; u:=tot; exit; end; inc(ctree[u].size); if key<ctree[u].key then insert(ctree[u].l,key) else insert(ctree[u].r,key); maintain(u); end; {-----------------------------------} procedure delete(var u:longint;key:longint); begin if u=0 then exit; if ctree[u].key<key then begin inc(ans,ctree[ctree[u].l].size+1); u:=ctree[u].r; delete(u,key); maintain(u); exit; end else begin delete(ctree[u].l,key); ctree[u].size:=ctree[ctree[u].l].size+ctree[ctree[u].r].size+1; maintain(u); end; end; {-----------------------------------} procedure search(var u:longint;k:longint); begin if ctree[ctree[u].r].size=k-1 then begin writeln(ctree[u].key+delta); exit; end else if ctree[ctree[u].r].size+1<k then search(ctree[u].l,k-ctree[ctree[u].r].size-1) else search(ctree[u].r,k); end; {-----------------------------------} procedure main; var i,j:longint; t:char; begin readln(n,min); for i:=1 to n do begin readln(t,j); case t of 'I':if j>=min then insert(root,j-delta); 'A':inc(delta,j); 'S':begin dec(delta,j); delete(root,min-delta); end; 'F':if ctree[root].size<j then writeln(-1) else search(root,j); end; end; writeln(ans); end; {-----------------------------------} begin assign(input,'cashier.in');reset(input); assign(output,'cashier.out');rewrite(output); main; close(output); end.