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]