From 8363b21e19211a06b41b46ea218cf432950c9e06 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Fri, 19 Nov 2021 10:58:44 +0100
Subject: solutions week 139

---
 challenge-139/wambash/raku/ch-1.raku | 18 ++++++++++++++++++
 challenge-139/wambash/raku/ch-2.raku | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 challenge-139/wambash/raku/ch-1.raku
 create mode 100644 challenge-139/wambash/raku/ch-2.raku

diff --git a/challenge-139/wambash/raku/ch-1.raku b/challenge-139/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..b312075a1e
--- /dev/null
+++ b/challenge-139/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub jort-sort (+@n) {
+    [before] @n
+}
+
+multi MAIN (Bool :test($)!){
+    use Test;
+    is jort-sort(1,2,3,4,5), True;
+    is jort-sort(1,3,2,4,5), False;
+    is jort-sort(<a b s z>), True;
+    is jort-sort(<a b s c z>), False;
+    done-testing;
+}
+
+multi MAIN (*@n) {
+    say +jort-sort @n
+}
diff --git a/challenge-139/wambash/raku/ch-2.raku b/challenge-139/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..622dd0035a
--- /dev/null
+++ b/challenge-139/wambash/raku/ch-2.raku
@@ -0,0 +1,32 @@
+#!/usr/bin/env raku
+
+sub is-long ( $n ) {
+    1 / $n
+    andthen .base-repeating[1]
+    andthen .chars == $n - 1
+}
+
+sub is-long-prime ( $n ) {
+    $n
+    andthen .&is-long & .is-prime
+    andthen .so
+}
+
+multi MAIN (Bool :test($)!){
+    use Test;
+    is is-long( 2),False;
+    is is-long( 7), True;
+    is is-long(17), True;
+    is is-long-prime( 2),False;
+    is is-long-prime( 7), True;
+    is is-long-prime(17), True;
+    done-testing;
+}
+
+multi MAIN ($n=5) {
+    2..*
+    andthen .grep: &is-long-prime
+    andthen .head: $n
+    andthen .batch: 5
+    andthen .map: *.put
+}
-- 
cgit