From 3666dccb20cd5bc5e01deb52fd7c69924f05a413 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Sun, 9 Feb 2020 13:11:08 -0700
Subject: ch-2.p6 yet again

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

diff --git a/challenge-046/mark-anderson/raku/ch-2.p6 b/challenge-046/mark-anderson/raku/ch-2.p6
index e4f9e5fb68..acd25098fc 100644
--- a/challenge-046/mark-anderson/raku/ch-2.p6
+++ b/challenge-046/mark-anderson/raku/ch-2.p6
@@ -4,12 +4,12 @@ my \open = True;
 
 my @doors = open xx 500;
 
-for 2 .. 500 -> $emp {
-    for $emp, $emp*2 ... 500 -> $door {
-        @doors[$door-1] ?^= open;
+for 1 .. 500 -> $emp {
+    NEXT {
+        for $emp, $emp*2 ... 500 -> $door {
+            @doors[$door-1] ?^= open;
+        }
     }
-}
 
-for 1 .. 500 -> $door {
-    say $door if @doors[$door-1];
+    say $emp if @doors[$emp-1];
 }
-- 
cgit