diff options
| -rw-r--r-- | challenge-046/mark-anderson/raku/ch-2.p6 | 12 |
1 files 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]; } |