[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.