Merge pull request #1733 from andemark/branch-for-challenge-061

ch-1.raku

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-061/mark-anderson/raku/ch-1.raku b/challenge-061/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..cc5f44b3fd
--- /dev/null
+++ b/challenge-061/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub MAIN (*@array) {
+    my %hash;
+
+    for (2 .. @array.keys.max) -> $i {
+        my @subs = @array.rotor($i);
+
+        %hash{@subs} = @subs.map({[*] .Array});
+
+        @subs = @array.reverse.rotor($i).map(*.reverse);
+
+        %hash{@subs} = @subs.map({[*] .Array});
+    }
+
+    .say for %hash.maxpairs;
+}