Sudoku - Perl extension for solving Su Doku puzzles
use Games::Sudoku::Board;
my @board = qw(
0 2 0 8 1 0 7 4 0
7 0 0 0 0 3 1 0 0
0 9 0 0 0 2 8 0 5
0 0 9 0 4 0 0 8 7
4 0 0 2 0 8 0 0 3
1 6 0 0 3 0 2 0 0
3 0 2 7 0 0 0 6 0
0 0 5 6 0 0 0 0 8
0 7 6 0 5 1 0 9 0
);
my $game = new Games::Sudoku::Board('Game 1', $debug, $pause);
$game->init(\@board);
$game->displayBoard();
$game->solve();
$game->displayBoard();
This module solves Su Doku puzzles.
The puzzle should be stored in a single dimension array or in a file, where unknown characters presented by zero
A sample code along with test layouts can be found in examples directory of this distribution.
- Add error handling and invalid layout capture
- Add support for 16x16 boards
- Write better documentation
Eugene Kulesha, <kulesha@gmail.com>
Copyright (C) 2005 by Eugene Kulesha
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.