暗黑破坏神

暗黑破坏神

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 10
1 3 1 2 2
2 3 2 4 6
3 3 2 1 10

Sample Output

11
1
0
3

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.