我认为方法是对数字进行排序,然后将一个越来越小的列表相加,直到它起作用
这是scala中的答案
def sumit(x : List[Int], k: Int ): List[Int] = x match { case x => if(x.sum > k ) x else sumit(x.init, k)
The List must be presorted, ie call like this
val numbers=List(-9, 1, 3, 6, 5, 1, 2)
sumit( numbers.sorted.reverse, 16)
在 perl 中
#!/usr/bin/perl
#
sub any_adds_to {
my $target=shift;
my $list=shift;
my @sorted=sort {$a <=> $b} @$list;
my $v=0;
for (@sorted) {
$v=$v+$_;
last if $v>$target;
}
return $v>$target;
}
sub assert {
$_[0] ? "OK\n" : "FAIL\n";
}
my %test_as_false=(18=>[3,2,4,2,6],
255=>[32,33,34,35,35],
1200=>[-1,1000,1,199]);
for my $val_to_find (keys %test_as_false) {
print assert(not(any_adds_to($val_to_find, $test_as_false{$val_to_find})));
}
my %test_as_correct=(18,[2,4,6,8],
255,[65,66,67,68],
1200=>[1,1000,1,199]);
for my $val_to_find (keys %test_as_correct) {
print assert((any_adds_to($val_to_find, $test_as_correct{$val_to_find})));
}