diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-05-02 22:17:32 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-05-02 22:17:32 -0600 |
| commit | dc537978415fa9831ac1b7f60b02a688bcb67031 (patch) | |
| tree | cf272d7159041feea74fb65b2979e277463809cf | |
| parent | cd590b2f0042b5acbb15f5cbb8b3914663d60ef0 (diff) | |
| download | perlweeklychallenge-club-dc537978415fa9831ac1b7f60b02a688bcb67031.tar.gz perlweeklychallenge-club-dc537978415fa9831ac1b7f60b02a688bcb67031.tar.bz2 perlweeklychallenge-club-dc537978415fa9831ac1b7f60b02a688bcb67031.zip | |
formatted + some minor tweaks
| -rw-r--r-- | challenge-058/mark-anderson/raku/ch-2.p6 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-058/mark-anderson/raku/ch-2.p6 b/challenge-058/mark-anderson/raku/ch-2.p6 index 068e98d813..e5730dadf0 100644 --- a/challenge-058/mark-anderson/raku/ch-2.p6 +++ b/challenge-058/mark-anderson/raku/ch-2.p6 @@ -173,12 +173,12 @@ my @T; 34, 2, 153, 261, 257, 74, 431, 401, 755, 101, 94, 593, 782, 366, 192, 11); -my @A = (@H Z @T).sort; +my @Z = (@H Z @T).sort; my @Ans; -while @A.pop -> ($h, $t) { - @Ans.splice($t, 0, [$($h, $t)]); +while @Z.pop -> ($h, $t) { + @Ans.splice($t, 0, $h); } -say @Ans.map(*[0]).rotor(10)>>.fmt("%-4d").join("\n"); +say @Ans.rotor(10)>>.fmt("%-4d").join("\n"); |