Проверка принадлежности

Часть раздела Логика и потоки выполнения путешествия по R на Coddy. Урок 14 из 64.

x %in% set проверяет каждый элемент x и возвращает по одному логическому значению для каждого элемента. all() проверяет, являются ли все результаты проверок TRUE, а any() — является ли таким хотя бы один.

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

Результат:

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

Используйте индексирование с отрицательной проверкой, чтобы вывести отсутствующие элементы в порядке первого вектора:

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

Результат:

[1] "milk"  "sugar"

setequal(a, b) проверяет, содержат ли два вектора одинаковые значения, игнорируя порядок и повторы:

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

Результат:

[1] TRUE
[1] FALSE

Для пустого вектора all() равно TRUE, а any() — FALSE: если ничего не требуется, то ничего и не отсутствует.

which() преобразует логический вектор в позиции его значений TRUE, показывая, где находятся совпадения:

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

Вывод:

[1] 1 3

Задание

Легко

Дополните check_recipe(required, pantry). Возвращайте ready, когда каждый требуемый ингредиент есть в кладовой. В противном случае возвращайте missing: , за которым следуют отсутствующие ингредиенты в порядке их появления в required, объединённые с помощью , .

Предоставленный код считывает требуемые ингредиенты и содержимое кладовой как строки со значениями, разделёнными запятыми, и выводит возвращённое значение.

Попробуйте сами

check_recipe <- function(required, pantry) {
  # Напишите ваш код здесь
  ""
}

# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
cat(check_recipe(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")