diff options
| -rw-r--r-- | challenge-335/mark-anderson/raku/ch-2.raku | 8 |
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' } |