【动态规划进阶-背包型】nuggets问…

【动态规划进阶-背包型】nuggets问题

Time Limit:1000MS  Memory Limit:65536K
Total Submit:18 Accepted:12

Description

农夫布朗的奶牛们正在进行斗争，因为它们听说麦当劳正在考虑引进一种新产品：麦香牛块。奶牛们正在想尽一切办法让这种可怕的设想泡汤。奶牛们进行斗争的策略之一是“劣质的包装”。“看，”奶牛们说，“如果你只用一次能装3块、6块或者10块的三种包装盒包装麦香牛块，你就不可能满足一次只想买1、2、4、5、7、8、11、14或者17块麦香牛块的顾客了。劣质的包装意味着劣质的产品。”
你的任务是帮助这些奶牛。给出包装盒的种类数N(1<=N<=10)和N个代表不同种类包装盒容纳麦香牛块个数的正整数(1<=i<=256)，输出顾客不能用上述包装盒(每种盒子数量无限)买到麦香牛块的最大块数。如果所有购买方案都能得到满足或者不存在不能买到块数的上限，则输出0。不能买到的最大块数（倘它存在）不超过2,000,000,000。

Input

第1行: 包装盒的种类数N
第2行到N+1行: 每个种类包装盒容纳麦香牛块的个数

Output

输出文件只有一行数字：顾客不能用包装盒买到麦香牛块的最大块数或0(如果所有购买方案都能得到满足或者顾客不能买到的块数没有上限)。

Sample Input

3
3
6
10

Sample Output

17

Source

USCAO

 

 

就是多重背包问题。数据边界有点难处理。

var
 n,i,j,k,total,o:longint;
 a:array[0..65336]of boolean;
 f:array[1..10+1]of longint;

function gcd(x,y:longint):longint;
begin
 if y=0 then exit(x);
 exit(gcd(y,x mod y));
end;

begin
 readln(n);
 for i:=1 to n do
  begin
  read(f[i]);
  if f[i]=1 then begin writeln(0);  exit; end;
  end;

 o:=f[1];
 for i:=2 to n do o:=gcd(o,f[i]);
 if o<>1 then begin writeln(0); exit; end;

 total:=65336;

 fillchar(a,sizeof(a),0);
 for i:=1 to n do
  begin
  a[f[i]]:=true;
  for j:=f[i] to total do
  a[j]:=a[j] or a[j-f[i]];
  end;
 for i:=total downto 1 do
  if a[i]=false then begin writeln(i);  exit; end;
 writeln(0);
end.