= find_blank_with_least_options($board);if (defined($x)) {for (@options) {$board->[$x][$y] = $_;try($board);}$board->[$x][$y] = undef;} else {print find solution:\n ;display($board);}}sub find_blank_with_least_options {my $board = shift;my ($x_to_return, $y_to_return, @options_to_return);my $least = 9;for my $x (0 .. {for my $y (0 .. {if (!defined($board->[$x][$y])) {my @options = (0,1,1,1,1,1,1,1,1,1);for (0 .. {$options[$board->[$x][$_]] = 0 if difneed($board->+[$x][$_]);$options[$board->[$_][$y]] = 0 if difneed($board->+[$_][$y]);}for my $i (int($x/3) * 3 .. int($x/3) * 3 + 2) {for my $j (int($y/3) * 3 .. int($y/3) * 3 + 2) {$options[$board->[$i][$j]] = 0 if difneed($boa+rd->[$i][$j]);}}my $sum;$sum += $options[$_] for (0 .. 9);if ($sum get($row, $col)->get()) {$table->get($row, $col)->configure(-foreground => red+ );$table->get($row, $col)->insert( @0 , $board->[$row][$+col]);}}}}

5NE6Au yxsgwtjndify

shitty

Random