From dc537978415fa9831ac1b7f60b02a688bcb67031 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Sat, 2 May 2020 22:17:32 -0600
Subject: formatted + some minor tweaks

---
 challenge-058/mark-anderson/raku/ch-2.p6 | 8 ++++----
 1 file 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");
-- 
cgit