庆功会

庆功会
Time Limit:10000MS Memory Limit:65536K
Total Submit:235 Accepted:94
Case Time Limit:1000MS

Description
为了庆贺班级在校运动会上取得第一名的成绩，班主任决定开一场庆功会，为此拔款购买奖品奖励运动员，期望拔款金额能购买最大价值的奖品，可以补充他们的精力和体力。

Input
第一行二个数n(n<=500)，m(m<=5000)，其中n代表希望购买的物品的种数，m表示班会拨的钱数。
接下来n行，每行3个数，v、w、s，分别表示第I种物品的价格、价值（价格 与 价值 是不同的概念）和购买的数量（只能买0件或s件），其中v<=100,w<=1000,s<=10

Output
第一行：一个数，表示此次购买能获得的最大的价值（注意！不是价格）。

Sample Input
5 1000
80 20 4
40 50 9
30 50 7
20 20 1

Sample Output
1040

---

f[j]:=max(f[j],f[j-k*a[i,1]]+a[i,2]*k);

---

var
  a:array[0..6001,1..3] of longint;
  f:array[0..6001] of longint;
  i,j,k,m,n:longint;
function max(a,b:longint):longint;
begin
  if a>b then exit(a)
    else exit(b);
end;
begin
  readln(n,m);
  for i:=1 to n do
    readln(a[i,1],a[i,2],a[i,3]);
  for i:=1 to n do
    for j:=m downto 0 do
      for k:=0 to a[i,3] do
      begin
        if j-k*a[i,1]<0 then break;
          f[j]:=max(f[j],f[j-k*a[i,1]]+a[i,2]*k);
      end;
  writeln(f[m]);
end.