Select Code to Download

sub gen_idx_powerset (Int $size is copy) returns Array {
    my @c = ([]);
...
$score += 2 * grep {
    15 == [+]( @hand[@$_]>>.<val> )
}, gen_idx_powerset( +@hand );

sub gen_idx_powerset( Int $i is copy ) {
    return [] unless $i > 0;
...
        (map { [@$_, $i] }, gen_idx_powerset( $i - 1 ) ),
    );
}