多人背包 求前k大值背包+队列

 

题目描述

DD 和好朋友们要去爬山啦！他们一共有 K 个人，每个人都会背一个包。这些包的容量是相同的，都是 V。可以装进背包里的一共有 N 种物品，每种物品都有给定的体积和价值。

在 DD 看来，合理的背包安排方案是这样的：

每个人背包里装的物品的总体积恰等于包的容量。
每个包里的每种物品最多只有一件，但两个不同的包中可以存在相同的物品。
任意两个人，他们包里的物品清单不能完全相同。
在满足以上要求的前提下，所有包里的所有物品的总价值最大是多少呢？

输入格式

第一行有三个整数：K、V、N。(k<=50 v<=5000 n<=200 by RQ)

第二行开始的 N 行，每行有两个整数，分别代表这件物品的体积和价值。

输出格式

只需输出一个整数，即在满足以上要求的前提下所有物品的总价值的最大值。(最后有空行.)

样例输入

2 10 5 3 12 7 20 2 4 5 6 1 1

样例输出

57 <!--script src="http://www.rqnoj.cn/RQNOJ_PrintStatusWithPHP.asp?PID=123"-->

三维状态图像

 

var f:array[0..5000,0..50] of longint;
temp:array[0..51,0..10] of longint;
v,w:array[0..200] of longint;
n,m,i,j,k,v0,k0,sum:longint;
procedure sort(x:longint);
var i,l,r:longint;
begin
 temp[k0+1,0]:=maxlongint;
 temp[k0+1,1]:=maxlongint;
 l:=1; r:=1;
 for i:=1 to k0 do
  if temp[l,0]>temp[r,1] then
   begin
    f[x,i]:=temp[l,0]; inc(l);
   end
  else
   begin
    f[x,i]:=temp[r,1]; inc(r);
   end;
end;
begin
 readln(k0,v0,n);
 for i:=1 to n do
  readln(v[i],w[i]);
 for i:=0 to v0 do
  for j:=0 to k0 do
   f[i,j]:=-maxlongint div 10;
 f[0,1]:=0;//fuck 
 for i:=1 to n do
  for j:=v0 downto v[i] do
   begin
    for k:=1 to k0 do
     begin
      temp[k,0]:=f[j,k];
      temp[k,1]:=f[j-v[i],k]+w[i];
     end;
     sort(j);
   end;
 sum:=0;
 for i:=1 to k0 do
  inc(sum,f[v0,i]);
 writeln(sum);
end.