野田さんのお手伝い 結果↓ http://paiza.jp/poh/ec-campaign/result/a157a302b6a287f7c824c3ac1742bf41

noda.pl

my (@price,@day);
<STDIN> =~ /(\d+) (\d+)/;
$price[$_] = <STDIN> for (0..($1-1));
$day[$_] = <STDIN> for (0..($2-1));
@price = sort {$a <=> $b} @price;

for my $setprice (@day){
    my @tmp = grep { $_ <=  $setprice - $price[0] } @price;
    my $check = 0;

    unless ($price[0] < $setprice / 2) {
        print "0\n";
        next;
    }

    while (my $first = pop @tmp){
        for (@tmp) {
            my $same = $first + $_;
            last if $same > $setprice;
            $check = $same if $check < $same;
        }
        last if $check == $setprice;
    }
    print $check . "\n";
}