| Jogos :: Sudoku :: Solver resolver 9x9-sudokus recursivamente |
Baixe Agora |
Jogos :: Sudoku :: Solver Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Fritz Mehner
- Site do editor:
- http://search.cpan.org/~mehner/
Jogos :: Sudoku :: Solver Tag
Jogos :: Sudoku :: Solver Descrição
Resolva 9x9-sudokus recursivamente Jogos :: Sudoku :: Solver é um módulo Perl que resolve quebra-cabeças de 9x9-sudoku por recursão. Não há restrição à dificuldade e o número de soluções. O quebra-cabeça pode ser armazenado em uma única matriz de dimensão ou em um arquivo, onde as células desconhecidas são apresentadas por zeros ou pontos.Synopsis usam jogos :: Sudoku :: Solver QW (: Set_solution_max count_occupied_cells); # especificar um sudoku como array plano (este tem 10 soluções) Meu @sudoku_raw = qw (04 00 20 90 00 00 00 00 00 58 22 30 07 00 00 08 07 00 00 09 00 51 38 09 71 00 00 00 00 04 03 00 00 0); meu @sudoku; # a estrutura de dados do sudoku minha solução @solution; # a estrutura de dados da solução sudoku_set (\ @sudoku, \ @sudoku_raw); # Converter RAW para Representação Interna Imprimir "\ n ===== Sudoku ===== \ n"; sudoku_print (\ @sudoku); # Imprima o sudoku Meus $ Cell_OCupied = Contagem_occupied_cells (\ @sudoku); # Algumas estatísticas Imprimir "\ n", $ Cell_OCupied ", células ocupadas", 81- $ Cell_Class_Cupied ", células livres \ n"; set_solution_max (4); # pare de ter 4 soluções encontradas minhas $ soluções = sudoku_solve (\ @sudoku, \ @solution); # resolver o sudoku foreach meu $ n (1 .. $ Soluções) {# Imprima as soluções Imprimir "\ n --- Solução $ N --- \ N"; Sudoku_Print ($ SOLUÇÃO ); } Requisitos: · Perl. Limitações: · Este módulo só pode resolver 9x9-sudokus. Nenhum bugs foi relatado.
Jogos :: Sudoku :: Solver Software Relacionado