装载问题

有一批集装箱要装上一艘载重量为c的轮船。其中集装箱i的重量为Wi。最优装载问题要求确定在装载体积不受限制的情况下，将尽可能重的集装箱装上轮船。

对于给定的n个集装箱和轮船的载重量C，编程计算装入最多时的集装箱个数。

输入由多组测试数据组成。
每组测试数据输入的第1行中有2个正整数n和C。正整数n是集装箱个数；正整数C是轮船的载重量。接下来的一行中有n个整数，分别表示n个集装箱的重量，它们之间用空格分隔。

对应每组输入，输出最大载重量

Sample Input

5 10
7 2 6 5 4

Sample Output

10

这题我是用搜索来做的

这题就是在一些数字里面，选一些数相加，使它们的和最大又不能大于c

先排序，再从大到小来搜

var
n,c,i,tao,t:longint;
b,s:array[0..5000]of longint;

procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l;j:=r;mid:=s[(l+r) div 2];
    repeat
         while s[i]>mid do inc(i);
         while s[j]<mid do dec(j);
         if i<=j then
         begin
             s[0]:=s[i];s[i]:=s[j];s[j]:=s[0];
             inc(i);dec(j);
         end;
    until i>j;
    kp(l,j);
    kp(i,r);
end;
procedure search(dep,t:longint);
begin
    if t<c then if t>tao then tao:=t;
    if t=c then
    begin
        write(c);
        halt;
    end;
    if (t>c)or(dep>n) then exit;
    if (t+s[dep])<=c then search(dep+1,t+s[dep]);
    search(dep+1,t);
end;
begin
    readln(n,c);
    fillchar(b,sizeof(b),0);
    for i:=1 to n do
    read(s[i]);
    kp(1,n);
    tao:=0;
    search(1,0);
    write(tao);
end.