comb can take a matcher. d'oh

1 files changed, 3 insertions, 4 deletions

diff --git a/challenge-076/markus-holzer/raku/ch-2.raku b/challenge-076/markus-holzer/raku/ch-2.raku
index 19295ba61d..95bebac892 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;
 
@@ -11,7 +10,7 @@ sub words-in( $text ) {
     $text ~'~'~ $text.flip ~~ m:ex:i/@words/ }
 
 sub rotated-data {
-    @chars.batch( $width ), |( (0,0),(0,1),(1,0) ).map: &rotate-data }
+    @chars.batch( $width ), |( (0,0), (0,1), (1,0) ).map: &rotate-data }
 
 sub rotate-data( @offsets ) {
     (^$width).map: { @chars[ ($_ + @offsets[0]), ($_ + $width + @offsets[1]) ... * ] } }
\ No newline at end of file