challenge-059/colin-crain/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

use warnings;
use strict;
use feature ":5.26";

use List::Util qw(sum);

## ## ## ## ## MAIN:

my @array = @ARGV;
my @sets = choose_2_sets( @array );

my $sum;
for my $set ( @sets ) {
    $sum += bit_difference($set->[0], $set->[1]);
}

say $sum;


## ## ## ## ## SUBS:

sub bit_difference {
    return sum( split //, sprintf "%b", 0+$_[0] ^ 0+$_[1] );
}

sub choose_2_sets {
    my @array = @_;
     my @out;
    for my $i (0..(scalar @array - 1)) {
    	for my $j ($i+1..(scalar @array - 1)) {
    		push @out, [ $array[$i], $array[$j] ];
    	}
    }
    return @out;
}