R sudoku solver