[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

然后各种判断即可、、

 

见代码:

 1 Var
 2   t:Array[0..101,0..101] of longint;//Time
 3   f:Array[0..101,0..101] of longint;//Number
 4   RMB,RP,Time:Array[0..101] of longint;
 5   n,m,r,i,j,k:longint;
 6   xx,Iris:longint;
 7 Begin
 8   Read(n);
 9   For i:=1 to n do
10     Read(rmb[i],rp[i],time[i]);
11   Read(m,r);
12   For i:=1 to n do
13     For j:=m downto RMB[i] Do
14       For k:=r Downto RP[i] do
15         Begin
16           if f[j,k]<f[j-RMB[i],k-RP[i]]+1 Then
17             Begin
18               f[j,k]:=f[j-RMB[i],k-RP[i]]+1;
19               t[j,k]:=t[j-RMB[i],k-RP[i]]+Time[i];
20             End
21           Else
22             if f[j,k]=f[j-RMB[i],k-RP[i]]+1 Then
23               if t[j,k]>t[j-RMB[i],k-RP[i]]+Time[i] Then
24                 t[j,k]:=t[j-RMB[i],k-RP[i]]+Time[i];
25           if f[j,k]>xx Then
26             Begin
27               xx:=f[j,k];
28               Iris:=t[j,k];
29             End
30           Else if (f[j,k]=xx) And (t[j,k]<Iris) Then Iris:=t[j,k];
31         End;
32   Writeln(Iris);
33 End.

 

posted @ 2013-10-30 21:40  Iris.Catch-22.S、`  阅读(183)  评论(0编辑  收藏  举报