1st commit on 012

Author: stuart-little

challenge-012/stuart-little/README

@@ -0,0 +1 @@
+Solutions by Stuart Little

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>

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