- Added solution by Mark Anderson.

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-045/mark-anderson/raku/ch-1.p6 b/challenge-045/mark-anderson/raku/ch-1.p6
new file mode 100644
index 0000000000..96f72f06cf
--- /dev/null
+++ b/challenge-045/mark-anderson/raku/ch-1.p6
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+
+# Usage: perl6 ch-1.p6 the quick brown fox jumps over the lazy dog
+
+sub MAIN(*@args) {
+    my $string = @args.join || "thequickbrownfoxjumpsoverthelazydog";
+
+    my @array.push: [.split({}, :skip-empty)] for $string.comb(8);
+
+    @array[*-1].push: " " for @array[*-1].elems..7;
+
+    @array = [Z] @array;
+
+    $_ = .join.trim-trailing for @array;
+
+    say @array.join: " ";
+}