diff options
| -rw-r--r-- | challenge-046/markus-holzer/raku/ch-1.raku | 2 | ||||
| -rw-r--r-- | challenge-046/markus-holzer/raku/ch-2.raku | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/challenge-046/markus-holzer/raku/ch-1.raku b/challenge-046/markus-holzer/raku/ch-1.raku index 5c5c38ae18..7199005c6e 100644 --- a/challenge-046/markus-holzer/raku/ch-1.raku +++ b/challenge-046/markus-holzer/raku/ch-1.raku @@ -12,7 +12,7 @@ say decrypt( $message ); sub decrypt( $encrypted ) { - join '', roundrobin( + join '', zip( $encrypted.lines.map({ .split(/ \s /) }) ).map({ .Bag.first({ .value > 1 }).key diff --git a/challenge-046/markus-holzer/raku/ch-2.raku b/challenge-046/markus-holzer/raku/ch-2.raku index 247eb96c6a..1fac6c7585 100644 --- a/challenge-046/markus-holzer/raku/ch-2.raku +++ b/challenge-046/markus-holzer/raku/ch-2.raku @@ -4,8 +4,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 .. 500; + my $is-open = True; + $is-open = !$is-open if $i %% $_ for 2 .. 500; $is-open; } |