R/Estcolonne.R

In FannyChery/R-Projet_sudoku:

#' Fonction qui retourne TRUE si une valeur donnée est dans une colonne donnée, FALSE sinon
#'
#' @param val : la valeur à tester
#' @param j : la colonne où l'on veut regarder si il y a la valeur
#' @param matrice_vide : matrice 9x9 avec des cases vides, c'est la grille de sudoku à compléter
#' @return TRUE or FALSE

#Fonction qui donne TRUE si une valeur est dans une colonne
estcolonne <- function (val, j, matrice){
  compteur <- 0
  for (k in 1:9){
    if(matrice[k,j] == val){
      compteur <- 1
    }
  }
  if (compteur == 0){
    return (FALSE)
  }
  else{
    return (TRUE)
  }
}