challenge-059/colin-crain/raku/ch-2.p6


1
2
3
4
5
6
7
8
9
10
11

sub MAIN ( *@input ) {

    my @sets = @input.combinations: 2;
    my $sum = [+] @sets.map({bit_difference($_)});

    $sum.say;
}

sub bit_difference ($array) {
    return ([+^] |$array).base(2).comb.sum;
}