challenge-046/simon-proctor/raku/ch-2.p6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env raku

my @doors-open = 501 xx False;

for 1..500 -> $inc {
    my $cur = $inc;
    while $cur <= 500 {
        @doors-open[$cur] = ! @doors-open[$cur];
        $cur += $inc;
    }
}

for 1..500 -> $door {
    say "$door is Open" if @doors-open[$door];
}