From cfefb52e2e3dfc8d7b58f7d98bfb1bb6e5e82884 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 18 Aug 2025 10:02:54 +0000 Subject: Challenge 335 Solutions (Raku) --- challenge-335/mark-anderson/raku/ch-2.raku | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/challenge-335/mark-anderson/raku/ch-2.raku b/challenge-335/mark-anderson/raku/ch-2.raku index e879873c1c..e8f8c342ed 100644 --- a/challenge-335/mark-anderson/raku/ch-2.raku +++ b/challenge-335/mark-anderson/raku/ch-2.raku @@ -16,7 +16,6 @@ is find-winner([1,1],[0,0],[2,2],[0,1],[1,0],[0,2]), 'B'; sub find-winner(+@moves) { my $order = @moves[*;*].max + 1; - my @board = (0 xx $order).Array xx $order; my $ltr = @moves.end %% 2 ?? 'A' !! 'B'; @@ -30,12 +29,10 @@ sub find-winner(+@moves) @board.first.all, # check upper left to lower right diagonal - ((^Inf) Z (^Inf).head(@board)) - .map({ @board[.[0];.[1]] }).all, + (^@board).map({@board[$_;$_]}).all, # check upper right to lower left diagonal - ((^Inf) Z (@board.end...0)) - .map({ @board[.[0];.[1]] }).all, + (^@board).map({@board[$_;@board.end-$_]}).all, # check columns ([Z] @board).first.all -- cgit