From 26703d5644f664d13bc0e2ff71be7bf422892a21 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 19 Nov 2023 11:25:27 +0100
Subject: solutions week 243

---
 challenge-243/wambash/raku/ch-1.raku | 19 +++++++++++++++++++
 challenge-243/wambash/raku/ch-2.raku | 18 ++++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 challenge-243/wambash/raku/ch-1.raku
 create mode 100644 challenge-243/wambash/raku/ch-2.raku

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
+}
-- 
cgit