bzoj1029: [JSOI2007]建筑抢修

传送门

贪心显然。

1.按照最后时限排序，暴力插入。

但是显然会错。

5

10 10

10 20

2 21

2 21

2 21

答案是2，但是显然最优的是4

于是考虑改进。

2.在无法修理时我们可以放弃花费时间最长的工作。

明显花费时间最长的工作时间大于当前工作是修改更优。

我们可以用一个大根堆实现。

然后就通过了。

我才不会告诉你我wa了5次。

var  a,b,c:array [0..200005] of int64;  n,i,ans,top:longint;  tt:int64;procedure kp(l,r:longint);  var i,j:longint;      m,t:int64;  begin    i:=l; j:=r; m:=b[(l+r) div 2];    while (i<=j) do begin      while (b[i]<m) do inc(i);      while (b[j]>m) do dec(j);      if (i<=j) then begin        t:=a[i]; a[i]:=a[j]; a[j]:=t;        t:=b[i]; b[i]:=b[j]; b[j]:=t;        inc(i); dec(j);    end; end;    if (l<j) then kp(l,j);    if (i<r) then kp(i,r);  end;procedure ins(x:int64);  var s:longint; t:int64;  begin    inc(top); c[top]:=x; s:=top;    while (s<>1) and (c[s]>c[s div 2]) do      begin t:=c[s]; c[s]:=c[s div 2]; c[s div 2]:=t; s:=s div 2; end;  end;procedure del;  var s,p:longint; t:int64;  begin    c[1]:=c[top]; dec(top); s:=1;    while (s*2<=top) do begin      if (s*2+1>top) or (c[s*2]>c[s*2+1]) then p:=s*2 else p:=s*2+1;      if (c[s]<c[p]) then begin t:=c[s]; c[s]:=c[p]; c[p]:=t; s:=p; end        else break;    end;  end;begin  read(n);  for i:=1 to n do read(a[i],b[i]);  kp(1,n);  tt:=0; ans:=0; top:=0;  for i:=1 to n do    if (tt+a[i]<=b[i]) then begin inc(ans); tt:=tt+a[i]; ins(a[i]); end      else if (a[i]<c[1]) and (tt-c[1]+a[i]<=b[i]) and (top<>0) then begin tt:=tt-c[1]+a[i]; del; ins(a[i]); end;  write(ans);end.