【SSLGZ 1673】垃圾陷阱

问题描述
卡门——农夫约翰极其珍视的一条Holsteins奶牛——已经落了到“垃圾井”中。“垃圾井”是农夫们扔垃圾的地方，它的深度为D (2 <= D <= 100)英尺。
卡门想把垃圾堆起来，等到堆得与井同样高时，她就能逃出井外了。另外，卡门可以通过吃一些垃圾来维持自己的生命。
每个垃圾都可以用来吃或堆放，并且堆放垃圾不用花费卡门的时间。
假设卡门预先知道了每个垃圾扔下的时间t(0
输入
第一行为2个整数，D 和 G (1 <= G <= 100)，G为被投入井的垃圾的数量。
第二到第G+1行每行包括3个整数：T (0 < T <= 1000)，表示垃圾被投进井中的时间；F (1 <= F <= 30)，表示该垃圾能维持卡门生命的时间；和 H (1 <= H <= 25)，该垃圾能垫高的高度。
输出
如果卡门可以爬出陷阱，输出一个整表示最早什么时候可以爬出；否则输出卡门最长可以存活多长时间。
样例输入
20 4
5 4 9
9 3 2
12 6 10
13 1 1
样例输出
13
样例说明
卡门堆放她收到的第一个垃圾：height=9；
卡门吃掉她收到的第二个垃圾，使她的生命从10小时延伸到13小时；
卡门堆放第3个垃圾，height=19；
卡门堆放第4个垃圾，height=20。
算法讨论
对于每个垃圾有两种选择，吃掉它或堆放它，我们先对垃圾从小到大进行排序。f[i,j]表示第i个垃圾时到大j高度最大血量。
若是吃掉则有max(f[i,j],f[i-1,j]-(t[i]-t[i-1])+l[i])
当然，要奶牛的生命足够支撑到垃圾落下，所以理所当然f[i,j]-(t[i]-t[i-1])>=0(没错它等于0时也能吃←_←)
若是选择堆放，则max(f[i,j],f[i-1,j-h[i]]-(t[i]-t[i-1]))
一样，也是生命值问题，f[i-1,j-h[i]]-(t[i]-t[i-1])>=0，并且j-h[i]不可能是负数吧，j-h[i]>=0

const
  maxn=105;
  maxm=1005;
var
  f:array[0..maxm,-maxn..maxn] of int64;
  t,l,h:array[0..maxm] of longint;
  i,j,n,m:longint;
  s:int64;

procedure qsort(ll,r:longint);
var
  i,j,m:longint;
begin
  i:=ll; j:=r;
  m:=t[(ll+r) div 2];
  repeat
    while t[i]<m do
      inc(i);
    while t[j]>m do
      dec(j);
    if i<=j
      then begin
             t[0]:=t[i]; t[i]:=t[j]; t[j]:=t[0];
             l[0]:=l[i]; l[i]:=l[j]; l[j]:=l[0];
             h[0]:=h[i]; h[i]:=h[j]; h[j]:=h[0];
             inc(i); dec(j)
           end;
  until i>j;
  if ll<j
    then qsort(ll,j);
  if i<r
    then qsort(i,r)
end;

function max(x,y:longint):longint;
begin
  if x>y
    then exit(x)
    else exit(y)
end;

begin
  read(n,m);
  for i:=1 to m do
    read(t[i],l[i],h[i]);
  qsort(1,m);
  for i:=0 to maxn do
    for j:=0 to maxm do
      f[i,j]:=-maxlongint;
  f[0,0]:=10; t[0]:=0; l[0]:=0; h[0]:=0;
  for i:=1 to m do
    for j:=0 to n do
      begin
        if f[i-1,j]-t[i]+t[i-1]>=0
          then f[i,j]:=max(f[i,j],f[i-1,j]-t[i]+t[i-1]+l[i]);
        if (f[i-1,j-h[i]]-t[i]+t[i-1]>=0) and (j-h[i]>=0)
          then begin
                 f[i,j]:=max(f[i,j],f[i-1,j-h[i]]-t[i]+t[i-1]);
                 if j>=n
                   then begin
                          write(t[i]);
                          halt
                        end;
               end;
      end;
  for i:=0 to m do
    for j:= 0 to n do
      s:=max(s,f[i,j]+t[i]);
  write(s)
end.

Pixiv ID：62019421