diff options
| author | Mark Anderson <mark@andemark.io> | 2025-08-18 10:02:54 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2025-08-18 10:02:54 +0000 |
| commit | cfefb52e2e3dfc8d7b58f7d98bfb1bb6e5e82884 (patch) | |
| tree | 51a6fb094eaac7b9e5734abbd914b35d9c0dbf39 | |
| parent | 780da73208c2e7e6d23ccb5fc4ffabb75024085c (diff) | |
| download | perlweeklychallenge-club-cfefb52e2e3dfc8d7b58f7d98bfb1bb6e5e82884.tar.gz perlweeklychallenge-club-cfefb52e2e3dfc8d7b58f7d98bfb1bb6e5e82884.tar.bz2 perlweeklychallenge-club-cfefb52e2e3dfc8d7b58f7d98bfb1bb6e5e82884.zip | |
Challenge 335 Solutions (Raku)
| -rw-r--r-- | challenge-335/mark-anderson/raku/ch-2.raku | 7 |
1 files 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 |