垃圾陷阱

垃圾陷阱

Time Limit:10000MS Memory Limit:65536K
Total Submit:95 Accepted:36
Case Time Limit:1000MS

Description

卡门——农夫约翰极其珍视的一条Holsteins奶牛——已经落了到“垃圾井”中。“垃圾井”是农夫们扔垃圾的地方，它的深度为D (2 <= D <= 100)英尺。
卡门想把垃圾堆起来，等到堆得与井同样高时，她就能逃出井外了。另外，卡门可以通过吃一些垃圾来维持自己的生命。
每个垃圾都可以用来吃或堆放，并且堆放垃圾不用花费卡门的时间。
假设卡门预先知道了每个垃圾扔下的时间t(0

Input

第一行为2个整数，D 和 G (1 <= G <= 100)，G为被投入井的垃圾的数量。
第二到第G+1行每行包括3个整数：T (0 < T <= 1000)，表示垃圾被投进井中的时间；F (1 <= F <= 30)，表示该垃圾能维持卡门生命的时间；和 H (1 <= H <= 25)，该垃圾能垫高的高度。

Output

如果卡门可以爬出陷阱，输出一个整表示最早什么时候可以爬出；否则输出卡门最长可以存活多长时间。

Sample Input

20 4
5 4 9
9 3 2
12 6 10
13 1 1
Sample Output

13
[样例说明]
卡门堆放她收到的第一个垃圾：height=9；
卡门吃掉她收到的第二个垃圾，使她的生命从10小时延伸到13小时；
卡门堆放第3个垃圾，height=19；
卡门堆放第4个垃圾，height=20。
做法：dp f[j]表示在j高度最大生命值，f[h[i]+j]=max(f[j],f[j+h[i]])
假如f[j]>t[i]且j+h[i]>n那么就表示出去了
代码如下：

var
  f:array[0..1000] of longint;
  t,w,h:array[0..1000] of longint;
  n,m:longint;

function max(b,c:longint):longint;
begin
  if b>c then exit(b) else exit(c);
end;

procedure init;
var
  i,j:longint;
begin
  readln(n,m);
  for i:=1 to m do
    readln(t[i],w[i],h[i]);
  f[0]:=10;
end;

procedure px;
var
  i,j:longint;
begin
  for i:=1 to m-1 do
    for j:=i+1 to m do
      if t[i]>t[j] then
        begin
          t[0]:=t[i]; t[i]:=t[j]; t[j]:=t[0];
          w[0]:=w[i]; w[i]:=w[j]; w[j]:=w[0];
          h[0]:=h[i]; h[i]:=h[j]; h[j]:=h[0];
        end;
end;

procedure dp;
var
  i,j:longint;
begin
  for i:=1 to m do
    for j:=n downto 0 do
      if f[j]>=t[i] then
        if j+h[i]>=n then
          begin
            writeln(t[i]);
            halt;
          end
        else
         begin
           f[j+h[i]]:=max(f[j+h[i]],f[j]);
           f[j]:=f[j]+w[i];
         end;
end;

begin
  //assign(input,'Rubbish.in'); reset(input);
  //assign(output,'Rubbish.out'); rewrite(output);
  init;
  px;
  dp;
  writeln(f[0]);
  close(input); close(output);
end.