ch-1.raku again

1 files changed, 18 insertions, 4 deletions

diff --git a/challenge-061/mark-anderson/raku/ch-1.raku b/challenge-061/mark-anderson/raku/ch-1.raku
index 51f6fa8982..75b9bbb084 100644
--- a/challenge-061/mark-anderson/raku/ch-1.raku
+++ b/challenge-061/mark-anderson/raku/ch-1.raku
@@ -1,13 +1,27 @@
 #!/usr/bin/env raku
 
-sub MAIN (*@array) {
+#`(
+
+Input: 
+raku ch-1.raku 2 1 1 5 1 1 2
+
+Output:
+2 1 1 5
+5 1 1 2
+1 5 1 1 2
+2 1 1 5 1
+1 1 5 1 1 2
+2 1 1 5 1 1
+
+)
+
+sub MAIN (*@array where @array.all ~~ Int) {
     my %hash;
 
-    for (2 .. @array.keys.max) -> $i {
+    for (2 .. @array.end) -> $i {
         my @subs = @array.rotor($i => -($i-1));
-
         %hash{@subs} = @subs.map({[*] .Array});
     }
 
-    .say for %hash.maxpairs;
+    .say for %hash.maxpairs.map(*.key).sort(+*.subst(q{ }, q{}, :g));
 }