Merge pull request #2894 from stuart-little/stuart-little_012

1st commit on 012

3 files changed, 18 insertions, 0 deletions

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(\/ || $)/ })
+}