JZOJsenior1026.【GDOI2005】积木分发

Description

　　歌手The Pancakes到幼儿园跟小朋友玩，她到达的时候小朋友已经争着积木玩了。小朋友都想要更多的积木砌一个自己喜欢的图形，砌玩就可以和The Pancakes合照。同时，The Pancakes手上还有一些积木，她可以把手里的这些积木全部给一个小朋友，然后等该小朋友砌完后就可以收回所发的积木和该小朋友原先手里的积木。但她不知道能否让所有的小朋友都和她合照，聪明的你可以帮助她吗？

Input

　　输入包含多个数据。
　　每个数据的第一行是两个正整数n和s,1<=n<=10000,1<=s<=10000,表示一共有n位小朋友，The Pancakes手上有s块积木。以下有n行，每行有两个正整数，a和b，1<=a,b<=10^9,表示第i个小朋友手上有a块积木，还需要b块积木才能够砌完。
　　输入两个0时表示结束。

Output

　　如果可以让所有小朋友都和Pancake合照，就输出YES；否则，输出NO。

Sample Input

2 2
1 4
2 1
2 2
1 4
1 1
0 0

Sample Output

YES
NO

Data Constraint

一看C组三道题是GDOI2005原题心咯噔一下，怀着忐忑不安的心情点开第一题
woc？大水题？

思路：
直接按还需积木升序排序（第二关键字排序）
然后若当前你手上的积木≥b[i]then积木加上a[i]
否则直接输出NO

代码：

var
        a:array[0..100000,0..2]of longint;
        n,i:longint;
        bz:boolean;
        s:int64;           
procedure qsort(l,r:longint);
var
        i,j,mid,t:longint;
begin
        i:=l;
        j:=r;
        mid:=a[(l+r)div 2,2];
        repeat
                while a[i,2]<mid do inc(i);
                while a[j,2]>mid do dec(j);
                if i<=j then
                begin
                        a[0]:=a[i];
                        a[i]:=a[j];
                        a[j]:=a[0];
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r)
end;
begin
        while true do
        begin
                readln(n,s);
                if (n=0)and(s=0) then break;
                for i:=1 to n do readln(a[i,1],a[i,2]);
                qsort(1,n);
                bz:=true;
                for i:=1 to n do
                if s>=a[i,2] then
                begin
                        inc(s,a[i,1]);
                end
                else
                begin
                        bz:=false;
                        break;
                end;
                if bz then writeln('YES')
                        else writeln('NO');
        end;
end.

注意s累加可能超longint范围，要开int64（long long）