Challenge 335 Solutions (Raku)

1 files changed, 4 insertions, 4 deletions

diff --git a/challenge-335/mark-anderson/raku/ch-2.raku b/challenge-335/mark-anderson/raku/ch-2.raku
index d81359fac2..f3a580d72c 100644
--- a/challenge-335/mark-anderson/raku/ch-2.raku
+++ b/challenge-335/mark-anderson/raku/ch-2.raku
@@ -25,18 +25,18 @@ sub find-winner(+@moves)
     @moves[$seq].map({ @board[.[0];.[1]] = $ltr });
 
     # check rows
-    return $ltr if @board.first({ [eq] .flat });
+    return $ltr if @board.first({ .all eq $ltr });
 
     # check upper left to lower right diagonal
     my @a = (^Inf) Z (^Inf).head(@board);
-    return $ltr if [eq] @a.map({ @board[.[0];.[1]] });
+    return $ltr if @a.map({ @board[.[0];.[1]] }).all eq $ltr;
 
     # check upper right to lower left diagonal
     @a = (^Inf) Z (@board.end...0);
-    return $ltr if [eq] @a.map({ @board[.[0];.[1]] });
+    return $ltr if @a.map({ @board[.[0];.[1]] }).all eq $ltr;
 
     # check columns
-    return $ltr if ([Z] @board).first({ [eq] .flat });
+    return $ltr if ([Z] @board).first({ .all eq $ltr });
 
     return 'Draw'
 }