From a2293cf4868fa5df03d214d4744114ed7cecdd64 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 18 Aug 2025 08:40:15 +0000 Subject: Challenge 335 Solutions (Raku) --- challenge-335/mark-anderson/raku/ch-2.raku | 8 ++++---- 1 file 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' } -- cgit