Tests d’appartenance

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 14 sur 64.

x %in% set vérifie chaque élément de x et renvoie une valeur logique pour chaque élément. all() demande si toutes les vérifications valent TRUE, et any() si au moins l’une d’elles vaut TRUE.

required <- c("flour", "eggs", "milk")
pantry <- c("eggs", "salt", "flour")
print(required %in% pantry)
print(all(required %in% pantry))
print(any(required %in% pantry))

Sortie :

[1]  TRUE  TRUE FALSE
[1] FALSE
[1] TRUE

Indexez avec la vérification négative pour lister ce qui manque, dans l’ordre du premier vecteur :

required <- c("flour", "eggs", "milk", "sugar")
pantry <- c("eggs", "flour")
missing <- required[!(required %in% pantry)]
print(missing)

Sortie :

[1] "milk"  "sugar"

setequal(a, b) vérifie si deux vecteurs contiennent les mêmes valeurs, en ignorant l’ordre et les répétitions :

print(setequal(c("a", "b"), c("b", "a", "a")))
print(setequal(c("a", "b"), c("a", "c")))

Sortie :

[1] TRUE
[1] FALSE

Pour un vecteur vide, all() vaut TRUE et any() vaut FALSE : lorsque rien n’est requis, rien ne manque.

which() transforme un vecteur logique en positions de ses valeurs TRUE, ce qui vous indique où se trouvent les correspondances :

required <- c("flour", "eggs", "milk")
pantry <- c("eggs")
print(which(!(required %in% pantry)))

Résultat :

[1] 1 3

Défi

Facile

Complétez check_recipe(required, pantry). Retournez ready lorsque chaque ingrédient requis se trouve dans le garde-manger. Sinon, retournez missing: suivi des ingrédients manquants, dans l’ordre de required, joints par , .

Le code fourni lit les ingrédients requis et le garde-manger sous forme de lignes séparées par des virgules, puis affiche la valeur retournée.

Essayez vous-même

check_recipe <- function(required, pantry) {
  # Écrivez votre code ici
  ""
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
cat(check_recipe(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")