Select Code to Download

#!/usr/bin/perl
# solve.pl - Solves all sudoku puzzles, even really hard ones
...
sub show { # useful for debugging the squares while running
  print join("", @$_), "\n" for @{$squares[$_[0]]};
}

    9  4 
 7  6    
...
 61    54
    8  7 
 4  1