challenge-124/feng-chang/raku/ch-2.raku


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/bin/env raku

sub MAIN(*@N) {
    my UInt $num = @N.elems div 2;
    my Int  $sum = @N.sum;
    my UInt $min = @N.combinations($num).map({ abs($sum - 2 * $_.sum) }).min;

    @N.combinations($num).map({
        if abs($sum - 2 * $_.sum) == $min {
            put $_.join(' ');
            put (@N (-) $_).keys.join(' ');
            put ' = ' x 3;
        }
    });
}

# todo: when size is even, output should be cut to half