暗黑破坏神

来源：互联网发布：淘宝的主要目标客户编辑：程序博客网时间：2024/04/28 01:16

暗黑破坏神

Time Limit:10000MS Memory Limit:65536K
Total Submit:100 Accepted:35
Case Time Limit:1000MS

Description

无聊中的小x玩起了Diablo I...

游戏的主人公有n个魔法

每个魔法分为若干个等级，第i个魔法有p[i]个等级(不包括0)

每个魔法的每个等级都有一个效果值，一个j级的i种魔法的效果值为w[i][j]

魔法升一级需要一本相应的魔法书

购买魔法书需要金币，第i个魔法的魔法书价格为c[i]

而小x只有m个金币(好孩子不用修改器)

你的任务就是帮助小x决定如何购买魔法书才能使所有魔法的效果值之和最大

开始时所有魔法为0级效果值为0

Input

第一行用空格隔开的两个整数n(0<n<=100) <br="" m(0<m<="500)">
以下n行描述n个魔法

第i+1行描述第i个魔法格式如下(0<p[i]<=50, <br="" 0<c[i]<="10)">
c[i] p[i] w[i][1] w[i][2] ... w[i][p[i]]

Output

第一行输出一个整数，即最大效果

Sample Input

3 101 3 1 2 22 3 2 4 63 3 2 1 10

Sample Output

Hint

0< n< =100,0< m <=500,0 < p[i] <= 50,0 < c[i] <=10

Source

var  n,money:longint;  cost:array[1..100] of longint;  total:array[1..100] of longint;  value:array[1..100,0..50] of longint;  f:array[0..100,0..500] of longint;  d:array[0..100,0..500] of longint;  procedure init;  var   i,j:longint;  begin   readln(n,money);   for i:=1 to n do     begin      read(cost[i],total[i]);      for j:=1 to total[i] do       read(value[i][j]);      readln;    end;   end;   procedure _output(dn,dmoney:longint);   begin    if dn=0 then exit;    _output(dn-1,dmoney-d[dn,dmoney]*cost[dn]);    writeln(d[dn,dmoney])   end;   procedure solve;   var    i,j,k,max,maxp:longint;   begin    fillchar(f,sizeof(f),0);    f[0,0]:=0;    for i:=1 to n do     for j:=0 to money do      for k:=0 to total[i] do       begin        if j<k*cost[i] then break;        if f[i-1,j-k*cost[i]]+value[i][k]>f[i,j] then         begin          f[i,j]:=f[i-1,j-k*cost[i]]+value[i][k];          d[i,j]:=k;         end;        end;  max:=-maxlongint;  for i:=0 to money do    if f[n,i]>max then      begin        max:=f[n,i];        maxp:=i;      end;   writeln(max);   _output(n,maxp);  end;begin  init;  solve;end.

0 0