R/is_valid.R

In abderrahim-ait/Projet_R-Groupe4: Generer, Resoudre une grille de Sudoku

#' @title Test une valeur si il est valide dans une case de la matrice
#'
#'
#'@param A : une matrice
#'@param j : l'indice du colonne
#'@param i : l'indice du ligne
#'@param n ; valeur rechercher
#'@return : True si elle est pas valide, Sinon False
#'@author AIT MOULAY ABDERRAHIM
#'
#'@examples
#'  A = Suduko()
#'  A= genererSoduko(A,50)
#'  is_valid(A , 3, 2 , 3 )
#'
#'@export
#'

is_valid <- function (A, i, j, n) {
  if ((testBlock(A, i, j, n) == FALSE) &&
      (testligne(A, i, n) == FALSE) &&
      (testcolonne(A, j, n) == FALSE))
    return(TRUE)

  else
    return(FALSE)

}