diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-03 20:12:43 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-03 20:12:43 +0100 |
| commit | d470beb1e398ee7656e4f45be21ac6b9c89ac620 (patch) | |
| tree | 0e164275c51f69103fb1b81ffe9689c13f2a39ed | |
| parent | 7c124e68e9063f18f91c7abfd0a831b4e8bd6e09 (diff) | |
| download | perlweeklychallenge-club-d470beb1e398ee7656e4f45be21ac6b9c89ac620.tar.gz perlweeklychallenge-club-d470beb1e398ee7656e4f45be21ac6b9c89ac620.tar.bz2 perlweeklychallenge-club-d470beb1e398ee7656e4f45be21ac6b9c89ac620.zip | |
Solutions Markus Holzer
| -rw-r--r-- | challenge-046/markus-holzer/raku/ch-2.raku | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/challenge-046/markus-holzer/raku/ch-2.raku b/challenge-046/markus-holzer/raku/ch-2.raku index f762a3f6e9..c760034eca 100644 --- a/challenge-046/markus-holzer/raku/ch-2.raku +++ b/challenge-046/markus-holzer/raku/ch-2.raku @@ -1,10 +1,16 @@ -say "Open rooms: ", (1..^500).grep({ +say "Open rooms: \n", (1..^500).grep({ is-open( $_ ) }).join(","); sub is-open( $i ) { - my $status = !($i %% 2); - $status = !$status if $i %% $_ for 3, 4; - $status; + my $is-open = !($i %% 2); + $is-open = !$is-open if $i %% $_ for 3, 4; + $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 |