Üyelik Testleri

Coddy'nin R Journey'sinin Mantık ve Akış bölümünün bir parçası. Ders 14 / 64.

x %in% set, x'in her öğesini denetler ve her öğe için bir mantıksal değer döndürür. all() her denetimin TRUE olup olmadığını, any() ise en az birinin olup olmadığını sorar.

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

Çıktı:

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

İlk vektörün sırasına göre eksik olanları listelemek için olumsuzlanmış denetimle indeksleyin:

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

Çıktı:

[1] "milk"  "sugar"

setequal(a, b) iki vektörün, sıralamayı ve tekrarları göz ardı ederek aynı değerleri içerip içermediğini kontrol eder:

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

Çıktı:

[1] TRUE
[1] FALSE

Boş bir vektörde all() TRUE, any() ise FALSE değerini verir: gerekli hiçbir şey olmadığında eksik olan da hiçbir şey yoktur.

which(), mantıksal bir vektörü TRUE değerlerinin konumlarına dönüştürür; bu da eşleşmelerin nerede olduğunu gösterir:

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

Çıktı:

[1] 1 3

Görev

Kolay

check_recipe(required, pantry) işlevini tamamla. Gerekli her malzeme kilerde bulunduğunda ready döndür. Aksi takdirde missing: ifadesinin ardından eksik malzemeleri, required sırasına göre, , ile birleştirerek döndür.

Sağlanan kod, gerekli malzemeleri ve kileri virgülle ayrılmış satırlar olarak okur ve döndürülen değeri yazdırır.

Kendin dene

check_recipe <- function(required, pantry) {
  # Kodunuzu buraya yazın
  ""
}

# Sağlanan girdi/çıktı kodu: olduğu gibi bırakın
input <- suppressWarnings(readLines(file("stdin")))
cat(check_recipe(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")