[2013.10.30 Luogu OJ P1509]找啊找啊找GF

题目背景

"找啊找啊找GF,找到一个好GF,吃顿饭啊拉拉手,你是我的好GF.再见."
"诶,别再见啊..."
七夕...七夕...七夕这个日子,对于sqybi这种单身的菜鸟来说是多么的痛苦...虽然他听着这首叫做"找啊找啊找GF"的歌,他还是很痛苦.为了避免这种痛苦,sqybi决定要给自己找点事情干.他去找到了七夕模拟赛的负责人zmc MM,让她给自己一个出题的任务.经过几天的死缠烂打,zmc MM终于同意了.
但是,拿到这个任务的sqybi发现,原来出题比单身更让人感到无聊-_-....所以,他决定了,要在出题的同时去办另一件能够使自己不无聊的事情--给自己找GF.
sqybi现在看中了n个MM,我们不妨把她们编号1到n.请MM吃饭是要花钱的,我们假设请i号MM吃饭要花rmb[i]块大洋.而希望骗MM当自己GF是要费人品的,我们假设请第i号MM吃饭试图让她当自己GF的行为(不妨称作泡该MM)要耗费rp[i]的人品.而对于每一个MM来说,sqybi都有一个对应的搞定她的时间,对于第i个MM来说叫做time[i]. sqybi保证自己有足够的魅力用time[i]的时间搞定第i个MM^_^.
sqybi希望搞到尽量多的MM当自己的GF,这点是毋庸置疑的.但他不希望为此花费太多的时间(毕竟七夕赛的题目还没出),所以他希望在保证搞到MM数量最多的情况下花费的总时间最少.

 

题目描述

sqybi现在有m块大洋,他也通过一段时间的努力攒到了r的人品(这次为模拟赛出题也攒rp哦~~).他凭借这些大洋和人品可以泡到一些MM.他想知道,自己泡到最多的MM花费的最少时间是多少.
注意sqybi在一个时刻只能去泡一个MM--如果同时泡两个或以上的MM的话,她们会打起来的...

 

输入格式

输入的第一行是n,表示sqybi看中的MM数量.
接下来有n行,依次表示编号为1, 2, 3, ..., n的一个MM的信息.每行表示一个MM的信息,有三个整数:rmb, rp和time.
最后一行有两个整数,分别为m和r.

 

输出格式

你只需要输出一行,其中有一个整数,表示sqybi在保证MM数量的情况下花费的最少总时间是多少.

 

样例输入 

4
1 2 5
2 1 6
2 2 2
2 2 3
5 5

样例输出 

13

 

 

注释

sqybi说:如果题目里说的都是真的就好了...
sqybi还说,如果他没有能力泡到任何一个MM,那么他就不消耗时间了(也就是消耗的时间为0),他要用这些时间出七夕比赛的题来攒rp...
数据规模
对于20%数据,1<=n<=10;
对于100%数据,1<=rmb<=100,1<=rp<=100,1<=time<=1000;

 

 

呃,基本一看就是DP啦、、、、、

 

那么，怎么做呢、、

 

本题自然有一些比较简明的解法、、

 

但是不适合简单理解、

 

我们可以容易想到，使用背包的做法求得泡MM的最多人数f

f[rmb,money]:=Max(f[rmb-RMB[i],RP-Rp[i]]+1);

由此，跟踪消耗时间t

t[rmb,money]:=t[rmb-RMB[i],RP-Rp[i]]+Time[i],t[Rmb,Money];//赋哪个值取决于f

然后各种判断即可、、

 

见代码:

Var
  t:Array[0..101,0..101] of longint;//Time
  f:Array[0..101,0..101] of longint;//Number
  RMB,RP,Time:Array[0..101] of longint;
  n,m,r,i,j,k:longint;
  xx,Iris:longint;
Begin
  Read(n);
  For i:=1 to n do
    Read(rmb[i],rp[i],time[i]);
  Read(m,r);
  For i:=1 to n do
    For j:=m downto RMB[i] Do
      For k:=r Downto RP[i] do
        Begin
          if f[j,k]<f[j-RMB[i],k-RP[i]]+1 Then
            Begin
              f[j,k]:=f[j-RMB[i],k-RP[i]]+1;
              t[j,k]:=t[j-RMB[i],k-RP[i]]+Time[i];
            End
          Else
            if f[j,k]=f[j-RMB[i],k-RP[i]]+1 Then
              if t[j,k]>t[j-RMB[i],k-RP[i]]+Time[i] Then
                t[j,k]:=t[j-RMB[i],k-RP[i]]+Time[i];
          if f[j,k]>xx Then
            Begin
              xx:=f[j,k];
              Iris:=t[j,k];
            End
          Else if (f[j,k]=xx) And (t[j,k]<Iris) Then Iris:=t[j,k];
        End;
  Writeln(Iris);
End.