diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-02-09 13:11:08 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-02-09 13:11:08 -0700 |
| commit | 3666dccb20cd5bc5e01deb52fd7c69924f05a413 (patch) | |
| tree | be23b041a8d1562dcfd1816f28208b442a8d08df | |
| parent | 23bc7df71efa0b7105de855b2de6583278a818a4 (diff) | |
| download | perlweeklychallenge-club-3666dccb20cd5bc5e01deb52fd7c69924f05a413.tar.gz perlweeklychallenge-club-3666dccb20cd5bc5e01deb52fd7c69924f05a413.tar.bz2 perlweeklychallenge-club-3666dccb20cd5bc5e01deb52fd7c69924f05a413.zip | |
ch-2.p6 yet again
| -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]; } |