diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-02-09 20:30:36 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-02-09 20:30:36 +0000 |
| commit | a605552078db9f3f9ca6297c24f1ffe2a1abb73c (patch) | |
| tree | 1f47cb3f715844e6f001fffd82d598e416a1ca13 | |
| parent | 52ac0b8e5b97473b74872273c1d8b13ff05effcd (diff) | |
| parent | 3666dccb20cd5bc5e01deb52fd7c69924f05a413 (diff) | |
| download | perlweeklychallenge-club-a605552078db9f3f9ca6297c24f1ffe2a1abb73c.tar.gz perlweeklychallenge-club-a605552078db9f3f9ca6297c24f1ffe2a1abb73c.tar.bz2 perlweeklychallenge-club-a605552078db9f3f9ca6297c24f1ffe2a1abb73c.zip | |
Merge pull request #1231 from andemark/branch-for-challenge-046
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]; } |