Merge pull request #1461 from andemark/branch-for-challenge-053

Branch for challenge 053

2 files changed, 35 insertions, 0 deletions

diff --git a/challenge-053/mark-anderson/raku/ch-1.p6 b/challenge-053/mark-anderson/raku/ch-1.p6
new file mode 100644
index 0000000000..b45f906722
--- /dev/null
+++ b/challenge-053/mark-anderson/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+my @matrix = [ 1, 2, 3 ],
+             [ 4, 5, 6 ],
+             [ 7, 8, 9 ];
+
+say [Z] @matrix.reverse;            # rotate 90
+
+say @matrix.map(*.reverse).reverse; # rotate 180
+
+say ([Z] @matrix).reverse;          # rotate 270
diff --git a/challenge-053/mark-anderson/raku/ch-2.p6 b/challenge-053/mark-anderson/raku/ch-2.p6
new file mode 100644
index 0000000000..94cc2f68d9
--- /dev/null
+++ b/challenge-053/mark-anderson/raku/ch-2.p6
@@ -0,0 +1,24 @@
+#!/usr/bin/env raku
+
+sub MAIN($length where 1 <= $length <= 5) {
+    my %next_letter = a => <e i>,
+                      e => <i>,
+                      i => <a e o u>,
+                      o => <a u>,
+                      u => <o e>;
+
+    for <a e i o u> -> $first_letter {
+        my @queue = Empty;
+        @queue.push($first_letter);
+
+        while @queue[0].chars < $length {
+            my $str = @queue.shift;
+            my $last_letter = $str.substr(*-1);
+            for %next_letter{$last_letter}.Array -> $ltr {
+                @queue.push($str ~ $ltr);
+            }
+        }
+
+        say @queue.join("\n");
+    }
+}