diff options
| -rw-r--r-- | challenge-076/markus-holzer/raku/ch-2.raku | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-076/markus-holzer/raku/ch-2.raku b/challenge-076/markus-holzer/raku/ch-2.raku index 5847a91ed5..28e90a4d17 100644 --- a/challenge-076/markus-holzer/raku/ch-2.raku +++ b/challenge-076/markus-holzer/raku/ch-2.raku @@ -1,9 +1,8 @@ unit sub MAIN($words-file, $board-file); my @words = $words-file.IO.lines; -my @board = $board-file.IO.slurp.subst( ' ', :g ).lines; -my $width = @board.head.chars; -my @chars = @board.map: |*.comb; +my $width = $board-file.IO.lines.head.chars div 2 + 1; +my @chars = $board-file.IO.slurp.comb( /\w/ ); .Str.say for words-in rotated-data.flat.join; |