Операции с множествами

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

Три функции объединяют два вектора как множества. Каждая возвращает значения без повторений:

union(a, b) содержит значения из любого из векторов, intersect(a, b) — значения из обоих, а setdiff(a, b) — значения a, которых нет в b.

mon <- c("ana", "ben", "cy")
tue <- c("ben", "dee", "cy", "ben")
print(union(mon, tue))
print(intersect(mon, tue))
print(setdiff(mon, tue))

Вывод:

[1] "ana" "ben" "cy"  "dee"
[1] "ben" "cy" 
[1] "ana"

setdiff() зависит от порядка своих аргументов. Поменяйте их местами, чтобы получить значения, которые есть только во втором векторе:

mon <- c("ana", "ben", "cy")
tue <- c("ben", "dee", "cy")
print(setdiff(tue, mon))

Вывод:

[1] "dee"

Когда ничего не остаётся, результатом является пустой вектор, character(0) для текста:

print(intersect(c("a", "b"), c("x", "y")))

Вывод:

character(0)

Результаты сохраняют порядок первого вектора. Отсортируйте их, если для вывода нужен предсказуемый порядок, и проверьте, не является ли результат пустым, прежде чем объединять элементы:

a <- c("pear", "fig", "kiwi")
b <- c("kiwi", "pear")
both <- sort(intersect(a, b))
print(paste(both, collapse = ", "))
print(length(setdiff(b, a)) == 0)

Вывод:

[1] "kiwi, pear"
[1] TRUE

Задание

Легко

Завершите compare_courses(a, b). a и b — это студенты двух курсов. Верните три строки:

Both: и затем студентов обоих курсов
Only first: и затем студентов, которые есть только в a
Total: и затем количество различных студентов в обоих курсах

Отсортируйте имена в каждом списке и объедините их с помощью , . Пустой список записывается как none.

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

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

compare_courses <- function(a, b) {
  # Напишите ваш код здесь
  c("Both: ", "Only first: ", "Total: 0")
}

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