solutions week 198

2 files changed, 42 insertions, 0 deletions

diff --git a/challenge-198/wambash/raku/ch-1.raku b/challenge-198/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..07a147ff90
--- /dev/null
+++ b/challenge-198/wambash/raku/ch-1.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+sub max-gap (+@list) {
+    @list
+    andthen .sort
+    andthen .rotor: 2 => -1
+    andthen .map: -> ($a, $b) { $b - $a }\
+    andthen .maxpairs
+    andthen .elems
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is max-gap(2,5,8,1),2;
+    is max-gap(3),0;
+    done-testing;
+}
+
+multi MAIN (+@list) {
+    say max-gap @list
+}
diff --git a/challenge-198/wambash/raku/ch-2.raku b/challenge-198/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..126783debe
--- /dev/null
+++ b/challenge-198/wambash/raku/ch-2.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+sub prime-count ($n) {
+    ^Inf
+    andthen .grep: *.is-prime
+    andthen .toggle: { $_ < $n }\
+    andthen .elems
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is prime-count(10), 4;
+    is prime-count(15), 6;
+    is prime-count( 1), 0;
+    is prime-count(25), 9;
+    done-testing;
+}
+
+multi MAIN ($n) {
+    say prime-count $n
+}