From b0ad25718a9885df1bb4bc801c531fdc7a129e41 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 18 May 2020 07:32:10 -0600 Subject: ch-1.raku --- challenge-061/mark-anderson/raku/ch-1.raku | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 challenge-061/mark-anderson/raku/ch-1.raku 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; +} -- cgit