aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarkus "Holli" Holzer <holli.holzer@gmail.com>2020-02-03 21:16:57 +0100
committerMarkus "Holli" Holzer <holli.holzer@gmail.com>2020-02-03 21:16:57 +0100
commitf363cf9c1e7bc64f99ac7a8f968ffa178a51482f (patch)
treefc5662711372df0c84f556e1362a85053e06a40d
parent97bf86b215fff6c7911e7a00ab3cb8cf96376981 (diff)
downloadperlweeklychallenge-club-f363cf9c1e7bc64f99ac7a8f968ffa178a51482f.tar.gz
perlweeklychallenge-club-f363cf9c1e7bc64f99ac7a8f968ffa178a51482f.tar.bz2
perlweeklychallenge-club-f363cf9c1e7bc64f99ac7a8f968ffa178a51482f.zip
be gone special case
-rw-r--r--challenge-046/markus-holzer/raku/ch-1.raku2
-rw-r--r--challenge-046/markus-holzer/raku/ch-2.raku4
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;
}