动态规划：Beef McNuggets 麦香牛块

农夫布朗的奶牛们正在进行斗争，因为它们听说麦当劳正在考虑引进一种新产品：麦香牛块。奶牛们正在想尽一切办法让这种可怕的设想泡汤。奶牛们进行斗争的策略之一是“劣质的包装”。“看，”，奶牛们说，“如果你只用一次能装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。

格式

PROGRAM NAME: nuggets

INPUT FORMAT:(file nuggets.in)

第1行: 包装盒的种类数N

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

OUTPUT FORMAT:(file nuggets.out)

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

SAMPLE INPUT

3

3

6

10

SAMPLE OUTPUT

17

当输入的盒子最大公约数不是1的时候，则无解，即 顾客不能买到的块数没有上限 

这步为节省时间在算法中没有描述。 

用result数组记录结果，如果一个数字可以满足要求，那么该数字作为下标对应的值记为1。

对于给定的n各盒子box 和肉块数量m

result[m] = 1 if  (  result[m- box[0]] + result[m-box[1]] .... result[m-box[n]] >=1)

result[m] = 0  if  ( result[m- box[0]] + result[m-box[1]] .... result[m-box[n]]  <1) 

设最大的盒子能装的数量为w,那么如果有连续的w个数都可以完全放入给出的盒子中，那么显然之后所有的数都是可以放在盒子当中的。这个是循环结束条件。

my $count = 0;
my @boxes = (3, 6, 10);
my @result;
$result[0] = 1;
my $cur = 1;
while(1){
my $find = 0;
for(@boxes){
  if( $cur - $_ <0){
    last;
  }
  if(defined($result[$cur-$_])){
    $find = 1;
    last;
  }
}
if($find){
  $result[$cur] = 1;
  #print("Success $cur\n");
  $count++;
}
else{
  #print("failed $cur \n");
  $count = 0;
}
last if($count>= $boxes[-1]);
$cur++;
}

print($cur - $boxes[-1]);