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
|
#!/usr/bin/env perl
# Challenge 059
#
# TASK #2 � Bit Sum
# Reviewed by Ryan Thompson
# Helper Function
# For this task, you will most likely need a function f(a,b) which returns the
# count of different bits of binary representation of a and b.
#
# For example, f(1,3) = 1, since:
#
# Binary representation of 1 = 01
#
# Binary representation of 3 = 11
#
# There is only 1 different bit. Therefore the subroutine should return 1. Note
# that if one number is longer than the other in binary, the most significant
# bits of the smaller number are padded (i.e., they are assumed to be zeroes).
#
# Script Output
# You script should accept n positive numbers. Your script should sum the result
# of f(a,b) for every pair of numbers given:
#
# For example, given 2, 3, 4, the output would be 6,
# since f(2,3) + f(2,4) + f(3,4) = 1 + 2 + 3 = 6
use Modern::Perl;
use Math::Combinatorics 'combine';
my @n = @ARGV;
my $sum = 0;
for my $combin (combine(2, @n)) {
$sum += f($combin->[0], $combin->[1]);
}
say $sum;
sub f {
my($a, $b) = @_;
my $r = ($a+0) ^ ($b+0);
my $rt = sprintf("%b", $r);
return $rt =~ tr/1/1/;
}
|
