jzoj P1026【GDOI2005】积木分发

题目大意：

歌手The Pancakes有s块积木，每一个小朋友有a块积木，还要b块才能砌好图形。如果她的积木能帮n个小朋友全部砌完图形，就可以与所有小朋友合影,并且她可以把积木给一个小朋友，然后等该小朋友砌完
4000
后就可以收回所发的积木和该小朋友原先手里的积木。能跟所有小朋友合影就输出YES，不然输出NO。

(1<=s,n<=10000),(1<=a,b<=10^9)

题解：

排序+模拟+贪心：

1.对于每一个b我们可以很容易发现贪心策略，每一次找需要积木最少的给予，就可以保证最优解，所以以b为关键字排序。

2.模拟做过去，如果当前The Pancakes的积木可以帮助需要积木数第k小的小朋友砌完即>b[k]就累加a[k]，不然如果第k小都做不了，第k+1小自然做不了就退出。

3.如果能一直做到结束就代表可以帮助全部砌完，输出YES，不然输出NO。

时间复杂度：O(N)

var
a,b:array [0..10001] of longint;
i,n:longint;
m:int64;

procedure qsort(l,r:longint);
var
i,j,mid:longint;
begin
if l>=r then exit;
i:=l; j:=r;
mid:=b[(l+r) div 2];
repeat
while b[i]<mid do inc(i);
while b[j]>mid do dec(j);
if i<=j
then begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
inc(i); dec(j);
end;
until i>j;
qsort(i,r);
qsort(l,j);
end;

begin
readln(n,m);
while (n<>0) or (m<>0) do
begin
for i:=1 to n do readln(a[i],b[i]);
qsort(1,n);
i:=0;
while (m>=b[i+1]) and (i<n) do
begin
inc(i);
m:=m+a[i];
end;
if i=n then writeln('YES')
else writeln('NO');
readln(n,m);
end;
end.