Poprawienie funkcji pomocniczej:
sudoku.check_square <- function(prob_seq,i,j,s)