blob: d0551818256c335940019e02f912a3ba307beeee (
plain)
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
36
37
38
39
40
41
42
43
44
45
|
#!/usr/bin/env perl6
use Test;
my $unit_tests = [
{ in => [1, 2, 3], out => 4 },
{ in => [2, 3, 4], out => 6 }
];
for |$unit_tests -> $unit_test {
is s($unit_test.{"in"}), $unit_test.{"out"};
}
done-testing;
sub s($A) {
my $sum = 0;
for $A.combinations(2) -> $pair {
$sum += f($pair[0], $pair[1]);
}
return $sum;
}
sub f(Int $a, Int $b) {
my Str $a_binary = $a.base(2);
my Str $b_binary = $b.base(2);
my $m = max($a_binary.chars, $b_binary.chars);
my $f = '%0' ~ $m ~ 'd';
$a_binary = sprintf($f, $a_binary);
$b_binary = sprintf($f, $b_binary);
my @a = $a_binary.comb;
my @b = $b_binary.comb;
my $bits = 0;
for 0..$m-1 -> $i {
if @a[$i] !== @b[$i] {
$bits += 1;
}
}
return $bits;
}
|
