SSL 2295——暗黑破坏神

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行 描述n个魔法

第i+1行描述 第i个魔法 格式如下(0
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

---

简单的背包，主要就是记录路径，再递归输出

---

代码如下:

const
  maxn=500;
var
  f,a,b:array[0..maxn,0..maxn] of longint;
  c,p:array[0..maxn] of longint;
  i,j,k,n,m,maxf,x,y:longint;


procedure print(x,y:longint);
begin
  if x=0 then exit;
  print(x-1,y-b[x,y]*c[x]);
  writeln(b[x,y]);
end;


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


begin
  readln(n,m);
  for i:=1 to n do
    begin
      read(c[i],p[i]);
      for j:=1 to p[i] do
        read(a[i,j]);
      readln;
    end;
  for i:=1 to n do
    for j:=1 to m do
      begin
        f[i,j]:=f[i-1,j];
        for k:=0 to p[i] do
          begin
            if k*c[i]>j then break;
            if f[i,j]<f[i-1,j-k*c[i]]+a[i,k] then
              begin
                f[i,j]:=f[i-1,j-k*c[i]]+a[i,k];
                b[i,j]:=k;
              end;
          end;
      end;
  writeln(f[n,m]);
  for j:=m downto 1 do
    for i:=n downto 1 do
      if f[i,j]>=maxf then
        begin
          maxf:=f[i,j];
          x:=i;
          y:=j;
        end;
  print(x,y);
  for i:=x+1 to n do
    writeln(0); 
end.