diff options
| -rwxr-xr-x | challenge-335/feng-chang/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-335/feng-chang/raku/ch-2.raku b/challenge-335/feng-chang/raku/ch-2.raku index a9aefa06bb..4c41bd5ae5 100755 --- a/challenge-335/feng-chang/raku/ch-2.raku +++ b/challenge-335/feng-chang/raku/ch-2.raku @@ -12,8 +12,8 @@ my @moves = EVAL $moves; my $any-row-col-diagonal = ( |(@board[$_ ].all for ^3), |(@board[*;$_].all for ^3), - (@board[0;0],@board[1;1],@board[2;2]).all, - (@board[0;2],@board[1;1],@board[2;0]).all, + (@board[$_;$_ ] for ^3).all, + (@board[$_;2-$_] for ^3).all, ).any; put do given @board { |