From 4004d67b3a49558555690b491dbf8922845c347e Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 30 Nov 2020 17:13:43 -0500
Subject: 1st commit on 012

---
 challenge-012/stuart-little/README       |  1 +
 challenge-012/stuart-little/raku/ch-1.p6 |  6 ++++++
 challenge-012/stuart-little/raku/ch-2.p6 | 11 +++++++++++
 3 files changed, 18 insertions(+)
 create mode 100644 challenge-012/stuart-little/README
 create mode 100755 challenge-012/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-012/stuart-little/raku/ch-2.p6

diff --git a/challenge-012/stuart-little/README b/challenge-012/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-012/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-012/stuart-little/raku/ch-1.p6 b/challenge-012/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..cf9e37c40e
--- /dev/null
+++ b/challenge-012/stuart-little/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+([\*] (2..*).grep(*.is-prime)).map(*+1).first(! *.is-prime).say
+
+# run as <script>
diff --git a/challenge-012/stuart-little/raku/ch-2.p6 b/challenge-012/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..86f68510c0
--- /dev/null
+++ b/challenge-012/stuart-little/raku/ch-2.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+my %*SUB-MAIN-OPTS=:named-anywhere,;
+sub MAIN(
+    Str :s(:sep(:$separator)) where *.chars==1 ='/',
+    *@DIRECTORIES,
+    ) {
+    @DIRECTORIES[0] ~~ m:exhaustive/(^.*) <?before $separator || $>/;
+    say $/.map(*.Str).grep(! *.ends-with($separator)).first( -> $dir { @DIRECTORIES.all ~~ /^$dir(\/ || $)/ })
+}
-- 
cgit