From 8d2a477f05329b16d4cf15c73814a7e63bf30ac3 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 4 May 2020 05:20:49 -0600
Subject: ch-2.p6

---
 challenge-059/mark-anderson/raku/ch-2.p6 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 challenge-059/mark-anderson/raku/ch-2.p6

(limited to 'challenge-059')

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..6256e2aa69
--- /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("%0b").comb("1").elems;
+}
-- 
cgit 


From aa4ec3a5b1ef22a10de33fc73de3debb0cacb824 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 4 May 2020 05:31:03 -0600
Subject: ch-2.p6

---
 challenge-059/mark-anderson/raku/ch-2.p6 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'challenge-059')

diff --git a/challenge-059/mark-anderson/raku/ch-2.p6 b/challenge-059/mark-anderson/raku/ch-2.p6
index 6256e2aa69..632161f883 100644
--- a/challenge-059/mark-anderson/raku/ch-2.p6
+++ b/challenge-059/mark-anderson/raku/ch-2.p6
@@ -5,11 +5,11 @@ my @list = (2, 3, 4);
 my $sum;
 
 for @list.combinations(2) -> ($n1, $n2) {
-    $sum += f($n1, $n2);
+   $sum += f($n1, $n2);
 }
 
 say $sum;
 
 sub f ($n1, $n2) {
-    ($n1 +^ $n2).fmt("%0b").comb("1").elems;
+    ($n1 +^ $n2).fmt("%b").comb("1").elems;
 }
-- 
cgit