(BestCoder Round #59 (div.1) B)简单DP

（改编版，题意相同）

Description

火神为了检验zone的力量，他决定单挑n个人。

由于火神训练时间有限，最多只有t分钟，所以他可以选择一部分人来单挑，由于有丽子的帮助，他得到了每个人特定的价值，每个人的价值由一个三元组(a,b,c)组成，表示如果火神在第x分钟单挑这个人（x指单挑完这个人的时间），他就会得到a-b*x的经验值，并且他需要c分钟来打倒这个人。

现在火神想知道，他最多可以得到多少经验值，由于火神本来就很笨，进入zone的疯狂的火神就更笨了，所以他希望你来帮他计算出他最多可以得到多少经验值。

对于100%的数据1≤n≤1000,1≤t≤3000,1≤Ci≤t,Ai≤10^6

保证n>200的数据组数不超过五组，其他的数据组数不超过10组

保证每个人贡献的经验值到训练结束都不会变成负数

Input

第一行一个正整数T，表示数据组数

对于每组数据，第一行为两个正整数n和t，表示跟火神单挑的人的个数和火神的训练时间。

下面n行，每行三个正整数Ai,Bi,Ci，表示每个人的价值，含义见题目。

Output

对于每组数据输出一行一个整数表示火神最多能得到多少经验值

Sample Input

1

4 10

110 5 9

30 2 1

80 4 8

50 3 2

Sample Output

88

我们会发现除了每个人的价值是不定的之外，其余的就是01背包。

那么，该怎样确定每个人的顺序呢？很简单。

你手玩半天会发现，每个人的顺序只跟他的BI/CI有关，所以按照BI/CI从大到小排序，然后直接01背包就好了。

代码有点长。。我打的比较丑。。。

uses math;
var
i,j,n,m,t,p,k,cas,x,ans:longint;
a,b,c:array[0..10000]of longint;
d:array[0..10000]of real;
f:array[0..3000]of longint;
bo:array[0..1000]of boolean;
flag:boolean;
procedure qsort(l,r:longint);
var
i,j,t:longint;
m:real;
begin
i:=l;
j:=r;
m:=d[(l+r)div 2];
repeat
while d[i]>m do inc(i);
while d[j]<m do dec(j);
if i<=j then
begin
d[0]:=d[i];
d[i]:=d[j];
d[j]:=d[0];
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
b[0]:=b[i];
b[i]:=b[j];
b[j]:=b[0];
c[0]:=c[i];
c[i]:=c[j];
c[j]:=c[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
read(cas);
for k:=1 to cas do
begin
read(n,m);
for i:=1 to n do
begin
readln(a[i],b[i],c[i]);
d[i]:=b[i]/c[i];
end;
qsort(1,n);
fillchar(f,sizeof(f),0);
fillchar(bo,sizeof(bo),true);

begin
for j:=1 to n do
for i:=m downto 0 do
if i-c[j]>=0 then
begin
f[i]:=max(f[i],f[i-c[j]]+a[j]-i*b[j]);
end;
end;
ans:=0;
for i:=0 to m do ans:=max(ans,f[i]);
writeln(ans);
end;

end.