2 files changed, 83 insertions, 0 deletions
diff --git a/challenge-059/mohammad-anwar/raku/ch-2.p6 b/challenge-059/mohammad-anwar/raku/ch-2.p6
new file mode 100644
index 0000000000..2c50a0bdd7
--- /dev/null
+++ b/challenge-059/mohammad-anwar/raku/ch-2.p6
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl6
+
+use v6.d;
+
+sub MAIN($A = [2, 3, 4]) {
+    say s($A);
+}
+
+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;
+}
diff --git a/challenge-059/mohammad-anwar/raku/ch-2a.p6 b/challenge-059/mohammad-anwar/raku/ch-2a.p6
new file mode 100644
index 0000000000..d055181825
--- /dev/null
+++ b/challenge-059/mohammad-anwar/raku/ch-2a.p6
@@ -0,0 +1,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;
+}