Merge pull request #9090 from wambash/challenge-week-243

solutions week 243

2 files changed, 37 insertions, 0 deletions

diff --git a/challenge-243/wambash/raku/ch-1.raku b/challenge-243/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..d79268a0fc
--- /dev/null
+++ b/challenge-243/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub reverse-pairs (+nums) {
+    nums
+    andthen .combinations: 2
+    andthen .grep: -> ($x, $y) { $x > 2 * $y }, :p
+    andthen .elems
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is reverse-pairs(1,3,2,3,1),2;
+    is reverse-pairs(2, 4, 3, 5, 1), 3;
+    done-testing;
+}
+
+multi MAIN (+nums) {
+    say reverse-pairs nums
+}
diff --git a/challenge-243/wambash/raku/ch-2.raku b/challenge-243/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..b9d95d5c73
--- /dev/null
+++ b/challenge-243/wambash/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub floor-sum (+nums) {
+    [X,] nums xx 2
+    andthen .map: -> ($x,$y) {$y div $x}\
+    andthen .sum
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is floor-sum(2,5,9),10;
+    is floor-sum(7 xx 7), 49;
+    done-testing;
+}
+
+multi MAIN (+nums) {
+    say floor-sum nums
+}