Merge pull request #1668 from andemark/branch-for-challenge-059

ch-2.p6

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-059/mark-anderson/raku/ch-2.p6 b/challenge-059/mark-anderson/raku/ch-2.p6
new file mode 100644
index 0000000000..632161f883
--- /dev/null
+++ b/challenge-059/mark-anderson/raku/ch-2.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+
+my @list = (2, 3, 4);
+
+my $sum;
+
+for @list.combinations(2) -> ($n1, $n2) {
+   $sum += f($n1, $n2);
+}
+
+say $sum;
+
+sub f ($n1, $n2) {
+    ($n1 +^ $n2).fmt("%b").comb("1").elems;
+}