zmiany w funkcji pomocniczej: sudoku.set_numb_seq <- function(i,j,s)