initial commit on 040-042, 060-061, 063

3 files changed, 25 insertions, 0 deletions

diff --git a/challenge-063/stuart-little/README b/challenge-063/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-063/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-063/stuart-little/raku/ch-1.p6 b/challenge-063/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..a3b1e2d610
--- /dev/null
+++ b/challenge-063/stuart-little/raku/ch-1.p6
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl6
+use v6;
+use MONKEY-SEE-NO-EVAL;
+
+sub last_word($s,$r) {
+    my $rx=EVAL($r);
+    $s.split(/\s+/).reverse.first(* ~~ $rx)
+}
+
+last_word(|@*ARGS[0,1]).say
+
+# run as <script> <quoted string> <singly-quoted regex in rx format>
+# e.g. <script> "Don't match too much, Chet!" 'rx:i/ch.t/'
diff --git a/challenge-063/stuart-little/raku/ch-2.p6 b/challenge-063/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..1c33e185f2
--- /dev/null
+++ b/challenge-063/stuart-little/raku/ch-2.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub rt(Str $s, Int $n where * > 0) {
+    $s.substr(($n % $s.chars)) ~ $s.substr(0..^($n % $s.chars))
+}
+
+my $word=@*ARGS[0];
+say (1..*).first({ rt($word, ($_*($_+1)/2).Int) eq $word }, :k)+1
+
+# run as <script> <word>