diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-05-18 15:31:55 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-05-18 15:31:55 +0100 |
| commit | e1521dd5e37e8541fc1ffd2fc97b1d2d0ef677df (patch) | |
| tree | 1f477e3e026335923ca416e5839eeda9667c235e | |
| parent | d62ebd34d2b885789a08620824e970c03fa16305 (diff) | |
| parent | 22b3f812adeffc1019ace83d9d88bf0aaafbaa59 (diff) | |
| download | perlweeklychallenge-club-e1521dd5e37e8541fc1ffd2fc97b1d2d0ef677df.tar.gz perlweeklychallenge-club-e1521dd5e37e8541fc1ffd2fc97b1d2d0ef677df.tar.bz2 perlweeklychallenge-club-e1521dd5e37e8541fc1ffd2fc97b1d2d0ef677df.zip | |
Merge pull request #1734 from andemark/branch-for-challenge-061
ch-1.raku
| -rw-r--r-- | challenge-061/mark-anderson/raku/ch-1.raku | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/challenge-061/mark-anderson/raku/ch-1.raku b/challenge-061/mark-anderson/raku/ch-1.raku index cc5f44b3fd..51f6fa8982 100644 --- a/challenge-061/mark-anderson/raku/ch-1.raku +++ b/challenge-061/mark-anderson/raku/ch-1.raku @@ -4,11 +4,7 @@ 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); + my @subs = @array.rotor($i => -($i-1)); %hash{@subs} = @subs.map({[*] .Array}); } |