diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-03 20:20:48 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-03 20:20:48 +0100 |
| commit | 97bf86b215fff6c7911e7a00ab3cb8cf96376981 (patch) | |
| tree | 68d223569a94c4a069715196e7d47a942baa442c | |
| parent | d470beb1e398ee7656e4f45be21ac6b9c89ac620 (diff) | |
| download | perlweeklychallenge-club-97bf86b215fff6c7911e7a00ab3cb8cf96376981.tar.gz perlweeklychallenge-club-97bf86b215fff6c7911e7a00ab3cb8cf96376981.tar.bz2 perlweeklychallenge-club-97bf86b215fff6c7911e7a00ab3cb8cf96376981.zip | |
Solutions Markus Holzer
| -rw-r--r-- | challenge-046/markus-holzer/raku/ch-2.raku | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-046/markus-holzer/raku/ch-2.raku b/challenge-046/markus-holzer/raku/ch-2.raku index c760034eca..247eb96c6a 100644 --- a/challenge-046/markus-holzer/raku/ch-2.raku +++ b/challenge-046/markus-holzer/raku/ch-2.raku @@ -5,12 +5,8 @@ say "Open rooms: \n", (1..^500).grep({ sub is-open( $i ) { my $is-open = !($i %% 2); - $is-open = !$is-open if $i %% $_ for 3, 4; + $is-open = !$is-open if $i %% $_ for 3 .. 500; $is-open; } -# Open rooms: -# 1,4,5,6,7,8,11,13,16,17,18,19,20,23,25,28,29,30,31,32,35,37,40,41,42,43,44,47,49,52, -# 53,54,55,56,59,61,64,65,66,67,68,71,73,76,77,78,79,80,83,85,88,89,90,91,92,95,97,100, -# 101,102,103,104,107,109,112,113,114,115,116,119,121,124,125,126,127,128,131,133,136, -# ....
\ No newline at end of file +# Open rooms: 1,4,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,400,441,484 |