1190: [HNOI2007]梦幻岛宝珠 - BZOJ

Description

给你N颗宝石，每颗宝石都有重量和价值。要你从这些宝石中选取一些宝石，保证总重量不超过W，且总价值最大为，并输出最大的总价值。 数据范围：N<=100;W<=2^30,并且保证每颗宝石的重量符合a*2^b（a<=10;b<=30）
Input

输入文件中包含多组数据。每组数据的格式如下：第一行是两个正整数n和W，1≤n≤100,1≤W≤2^30，分别表示宝石的数目和最多能带走的宝石重量。接下来的n行，每行有两个正整数weighti和valuei，1≤weighti≤2^30, 0≤valuei≤2^30，分别表示第i颗宝石的重量和价值，且保证weighti能写成a*2^b(1≤a≤10,0≤b≤30)的形式。同一行的两个正整数之间用空格隔开。 最后一组数据的后面有两个-1，表示文件的结束。这两个-1并不代表一组数据，你不需对这组数据输出结果。并且输入文件中数据的组数不超过20。
Output

对于输入的每组数据，输出一个整数C，表示小P最多能带走的宝石的总价值。每个结果整数C单独占一行，且保证C不会超过2^30。
Sample Input

4 10

8 9

5 8

4 6

2 5

4 13

8 9

5 8

4 6

2 5

16 75594681

393216 5533

2 77

32768 467

29360128 407840

112 68

24576 372

768 60

33554432 466099

16384 318

33554432 466090

2048 111

24576 350

9216 216

12582912 174768

16384 295

1024 76

-1 -1

Sample Output

14

19

1050650

又一次忘记把一组数据改成多组数据了，光荣的WA了

分层dp（听起来很高端的样子）

直接dp是不行的，而且他告诉我们每一个w都可以拆成a*2^b，0<=b<=30，所以我们肯定就按b分组了

f[i,j]表示体积为j*2^i再加上W二进制第i位以下的体积最多可以获得多少价值

每一层单独dp一下，就是普通的01背包

层与层之间还要dp一下

f[i,j]=max(f[i,j],f[i,j-k]+f[i-1,min(k*2+e[i-1],d[i-1])])

解释一下，d[i]表示第i层最多到体积为d[i]*2^i，这个可以算出来，就是d[i]:=sum[i]+(d[i-1]+1)>>1，sum[i]是这一层的a的总和，d[i]就是用来减少不必要的运算的

 var
     f:array[..,..]of longint;
     w,v:array[..,..]of longint;
     a,sum,d:array[..]of longint;
     s:longint;

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

 function min(x,y:longint):longint;
 begin
     if x<y then exit(x);
     exit(y);
 end;

 procedure main;
 var
     i,j,l,n,k,x,y:longint;
 begin
     read(n,s);
     if n=- then halt;
     fillchar(f,sizeof(f),);
     fillchar(a,sizeof(a),);
     fillchar(sum,sizeof(sum),);
     fillchar(d,sizeof(d),);
     for i:= to n do
       begin
         read(x,y);
         k:=;
         while x and = do
           begin
             inc(k);
             x:=x>>;
           end;
         inc(a[k]);
         w[k,a[k]]:=x;
         v[k,a[k]]:=y;
         inc(sum[k],x);
       end;
     k:=;
     while s>(<<k-) do
       inc(k);
     dec(k);
     for i:= to k do
       begin
         if i<> then d[i]:=(d[i-]+)>>;
         inc(d[i],sum[i]);
         for j:= to a[i] do
           for l:=d[i] downto w[i,j] do
             f[i,l]:=max(f[i,l],f[i,l-w[i,j]]+v[i,j]);
         if i<> then
           for j:=d[i] downto  do
             for l:= to j do
               f[i,j]:=max(f[i,j],f[i,j-l]+f[i-,min(d[i-],l*+( and (s>>(i-))))]);
       end;
     writeln(f[k,]);
 end;

 begin
     while true do
       main;
 end.