This package is designed to solve any 9 by 9 sudoku grid using the backtracking algorithm.
You can install the development version of sudokur from GitHub with:
# install.packages("devtools")
devtools::install_github("kennedymwavu/sudokur")
To make your own customized sudoku puzzle which you can view and solve with the functions available in this package, create a 9 by 9 matrix with zeros representing the empty spaces in your sudoku.
Example:
board1 <- matrix(
data = c(
5, 6, 0, 8, 4, 7, 0, 0, 0,
3, 0, 9, 0, 0, 0, 6, 0, 0,
0, 0, 8, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 8, 0, 0, 4, 0,
7, 9, 0, 6, 0, 2, 0, 1, 8,
0, 5, 0, 0, 3, 0, 0, 9, 0,
0, 0, 0, 0, 0, 0, 2, 0, 0,
0, 0, 6, 0, 0, 0, 8, 0, 7,
0, 0, 0, 3, 1, 6, 0, 5, 9
),
ncol = 9
)
To pretty print a sudoku grid use print_board(given_board)
.
Example:
print_board(board1)
#> 5 3 0 || 0 7 0 || 0 0 0
#> 6 0 0 || 1 9 5 || 0 0 0
#> 0 9 8 || 0 0 0 || 0 6 0
#> ___________________________________
#>
#> 8 0 0 || 0 6 0 || 0 0 3
#> 4 0 0 || 8 0 3 || 0 0 1
#> 7 0 0 || 0 2 0 || 0 0 6
#> ___________________________________
#>
#> 0 6 0 || 0 0 0 || 2 8 0
#> 0 0 0 || 4 1 9 || 0 0 5
#> 0 0 0 || 0 8 0 || 0 7 9
To solve a sudoku puzzle solve_sudoku(given_board)
.
Example:
solve_sudoku(samples$board6)
#> 2 3 1 || 6 7 5 || 4 8 9
#> 5 8 7 || 4 9 3 || 2 6 1
#> 6 4 9 || 2 8 1 || 7 5 3
#> ___________________________________
#>
#> 9 7 2 || 1 6 4 || 8 3 5
#> 4 6 8 || 5 3 9 || 1 2 7
#> 3 1 5 || 8 2 7 || 9 4 6
#> ___________________________________
#>
#> 7 5 4 || 3 1 2 || 6 9 8
#> 8 9 3 || 7 4 6 || 5 1 2
#> 1 2 6 || 9 5 8 || 3 7 4
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.