From 35b40d560e90cf5f4d459d3e245798f1c70ad8f6 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 15 Nov 2021 16:19:21 +0000
Subject: Challenge 139 Solutions (Raku)

---
 challenge-139/mark-anderson/raku/ch-1.raku | 12 ++++++++++++
 challenge-139/mark-anderson/raku/ch-2.raku |  9 +++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 challenge-139/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-139/mark-anderson/raku/ch-2.raku

diff --git a/challenge-139/mark-anderson/raku/ch-1.raku b/challenge-139/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..494dc98f95
--- /dev/null
+++ b/challenge-139/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+
+use Test;
+plan 2;
+
+is   jortsort(1, 2, 3, 4, 5), 1;
+isnt jortsort(1, 3, 2, 4, 5), 1;
+
+sub jortsort(+@a)
+{
+    + [<=] @a;
+}
diff --git a/challenge-139/mark-anderson/raku/ch-2.raku b/challenge-139/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..f0bfa3f0b7
--- /dev/null
+++ b/challenge-139/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+
+say (1..*).grep(&is-long-prime)[^5];
+
+sub is-long-prime($n)
+{
+    return False unless $n.is-prime;
+    return (1/$n).base-repeating.tail.chars == $n-1;
+}
-- 
cgit