diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-08 07:41:18 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-08 07:41:18 +0100 |
| commit | a7600c59246dd81f4975f6dfcb5817978e532756 (patch) | |
| tree | 7681cc44451fc8950fcc5315c589688140b804ee | |
| parent | 9e8b32d226c1dbb2e84ff58264d0763afb1ec881 (diff) | |
| download | perlweeklychallenge-club-a7600c59246dd81f4975f6dfcb5817978e532756.tar.gz perlweeklychallenge-club-a7600c59246dd81f4975f6dfcb5817978e532756.tar.bz2 perlweeklychallenge-club-a7600c59246dd81f4975f6dfcb5817978e532756.zip | |
Even nicer
| -rw-r--r-- | challenge-046/markus-holzer/raku/ch-1.p6 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-046/markus-holzer/raku/ch-1.p6 b/challenge-046/markus-holzer/raku/ch-1.p6 index 2cc9eca2ca..5495b8b625 100644 --- a/challenge-046/markus-holzer/raku/ch-1.p6 +++ b/challenge-046/markus-holzer/raku/ch-1.p6 @@ -13,8 +13,8 @@ say decrypt( $message ); sub decrypt( $encrypted ) { [~] zip( - $encrypted.lines.map({ .split(/ \s /) }) - ).map({ - .Bag.first({ .value > 1 }).key - }); + $encrypted.lines.map: *.words + ).map( + *.Bag.maxpairs[0].key + ); }
\ No newline at end of file |