my $N = 6; my @nums = (0 .. $N * $N - 1); my $grid; foreach my $x (0 .. $N - 1) { foreach my $y (0 .. $N - 1) { push @$grid => [@nums]; push @nums => splice @nums => 0, $N; } foreach my $y (0 .. $N - 1) { splice @nums => $y * $N, $N => @nums [($y * $N + 1) .. (($y + 1) * $N - 1), $y * $N] } }
Abigail
In reply to Re: Better algorithm for Number Place Puzzle
by Abigail-II
in thread Better algorithm for Number Place Puzzle
by davidj
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |