[BZOJ 1029][JSOI2007]建筑抢修

[JSOI2007]建筑抢修

Time Limit: 4 Sec Memory Limit: 162 MB

Description

小刚在玩JSOI提供的一个称之为“建筑抢修”的电脑游戏：经过了一场激烈的战斗，T部落消灭了所有z部落的入侵者。但是T部落的基地里已经有N个建筑设施受到了严重的损伤，如果不尽快修复的话，这些建筑设施将会完全毁坏。现在的情况是：T部落基地里只有一个修理工人，虽然他能瞬间到达任何一个建筑，但是修复每个建筑都需要一定的时间。同时，修理工人修理完一个建筑才能修理下一个建筑，不能同时修理多个建筑。如果某个建筑在一段时间之内没有完全修理完毕，这个建筑就报废了。你的任务是帮小刚合理的制订一个修理顺序，以抢修尽可能多的建筑。

Input

第一行是一个整数N，接下来N行每行两个整数T1,T2描述一个建筑：修理这个建筑需要T1秒，如果在T2秒之内还没有修理完成，这个建筑就报废了。

Output

输出一个整数S，表示最多可以抢修S个建筑.N < 150,000; T1 < T2 < maxlongint

Sample Input

4
100 200
200 1300
1000 1250
2000 3200

Sample Output

3

题解

• 贪心，用大根堆来维护最大值
• 先对结束时间排序
• 每次选取的任务能完成则完成
• 完不成的与对顶元素比较，如果比堆顶小且不执行对顶而执行当前任务可完成，则弹出堆顶，将该任务压入堆中

var
 y:array[0..150000]of longint;
 x:array[0..150000,1..2]of longint;
 i,j,k:longint;
 n,t:longint;
procedure sort(l,r: longint);
var i,j,a,y: longint;
begin
 i:=l; j:=r; a:=x[(l+r) div 2,2];
 repeat
  while x[i,2]<a do inc(i);
  while a<x[j,2] do dec(j);
  if not(i>j) then
  begin
   y:=x[i,1]; x[i,1]:=x[j,1]; x[j,1]:=y;
   y:=x[i,2]; x[i,2]:=x[j,2]; x[j,2]:=y;
   inc(i); dec(j);
  end;
 until i>j;
 if l<j then sort(l,j);
 if i<r then sort(i,r);
end;

procedure init(z:longint);
var tt,a,b,c,s:longint;
begin
 inc(y[0]); y[y[0]]:=z; tt:=y[0];
 while tt>1 do
  begin
   if tt mod 2=1
   then begin a:=tt-1; b:=tt; c:=a div 2; end
   else begin a:=tt; b:=a+1; c:=a div 2; end;
   if y[a]>y[c] then begin s:=y[a]; y[a]:=y[c]; y[c]:=s; end;
   if y[b]>y[c] then begin s:=y[b]; y[b]:=y[c]; y[c]:=s; end;
   tt:=c;
  end;
end;

procedure delet;
var i,s:longint;
begin
 for i:=1 to y[0]-1 do
  begin s:=y[i]; y[i]:=y[i+1]; y[i+1]:=s; end;
 dec(y[0]);
end;

begin
 readln(n);
 for i:=1 to n do
  readln(x[i,1],x[i,2]);
 sort(1,n);
 {for i:=1 to n do
  write(x[i,2],' ');
 writeln;}
 t:=0;
 for i:=1 to n do
  begin
   if t+x[i,1]<=x[i,2]
   then begin inc(t,x[i,1]); init(x[i,1]); end
   else if (t+x[i,1]-y[1]<=x[i,2])and(x[i,1]<y[1])
   then begin inc(t,x[i,1]-y[1]); delet; init(x[i,1]); end;
  end;
 writeln(y[0]);
end.