Merge pull request #1791 from andemark/branch-for-challenge-063

Challenge 63 Solutions

2 files changed, 22 insertions, 0 deletions

diff --git a/challenge-063/mark-anderson/raku/ch-1.raku b/challenge-063/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..22c8fb26e2
--- /dev/null
+++ b/challenge-063/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku 
+
+say last_word(' hello world',                 rx/<[ea]>l/);
+say last_word("Don't match too much, Chet!",  rx:i/ch.t/);
+say last_word("spaces in regexp won't match", rx:s/in re/);
+say last_word(join(' ', 1..1e6),              rx/^(3.*?)**3/);
+
+sub last_word(Str $string, Regex $regexp) {
+
+    return $string.words.grep($regexp).Array.pop || Nil;
+
+}
diff --git a/challenge-063/mark-anderson/raku/ch-2.raku b/challenge-063/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..fc8033a34c
--- /dev/null
+++ b/challenge-063/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+
+sub MAIN(Str $str = "xyxx") {
+    my @arr = $str.comb;
+
+    for 1 .. Inf -> $i {
+        @arr .= rotate($i % $str.chars);    
+        say $i and last if @arr.join eq $str;
+    }    
+}