暗黑破坏神

版权声明:转载随意 https://blog.csdn.net/ssl_TRX/article/details/70745803

暗黑破坏神

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.
    
    

展开阅读全文

没有更多推荐了,返回首页