From 7b0e7c6f6fae54d73342e4337bb51d118007e073 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 23 Nov 2020 16:52:41 -0700
Subject: initial

---
 challenge-088/mark-anderson/raku/ch-2.p6 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/challenge-088/mark-anderson/raku/ch-2.p6 b/challenge-088/mark-anderson/raku/ch-2.p6
index 0c98107dd0..000716f7a2 100644
--- a/challenge-088/mark-anderson/raku/ch-2.p6
+++ b/challenge-088/mark-anderson/raku/ch-2.p6
@@ -33,14 +33,12 @@ sub spiral(@step1) {
     my @step4 = ([Z] @step3).reverse;
     my @trips =  [Z] @step1, @step2, @step3, @step4;
     my $elems = @step1.elems * @step1[0].elems;
-    my $c = 0;
     my @result;
 
-    for @trips -> @t {
+    for @trips.kv -> $k, @t {
         for @t -> @step {
-            @result.push: @step[$c..*-$c-2];
+            @result.push: @step[$k..*-$k-2];
         }
-        $c++;
     }
 
     @result = (@result>>.Array).flat[^$elems];
-- 
cgit