sudoku solver in R