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

时间:2025-04-29 14:36:01

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.