Operacje na zbiorach

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 13 z 64.

Trzy funkcje łączą dwa wektory jak zbiory. Każda zwraca wartości bez powtórzeń:

union(a, b) zawiera wartości występujące w jednym lub drugim wektorze, intersect(a, b) — wartości występujące w obu, a setdiff(a, b) — wartości z a, których nie ma w b.

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

Wynik:

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

setdiff() zależy od kolejności argumentów. Zamień je miejscami, aby uzyskać wartości występujące tylko w drugim wektorze:

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

Wynik:

[1] "dee"

Gdy nic nie zostaje, wynikiem jest pusty wektor, character(0) w przypadku tekstu:

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

Wynik:

character(0)

Wyniki zachowują kolejność z pierwszego wektora. Posortuj je, gdy wynik musi mieć przewidywalną kolejność, i sprawdź, czy wynik jest pusty, zanim połączysz elementy:

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

Wynik:

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

Wyzwanie

Łatwy

Uzupełnij compare_courses(a, b). a i b to studenci dwóch kursów. Zwróć trzy wiersze:

Both: po którym następują studenci obu kursów
Only first: po którym następują studenci tylko z a
Total: po którym następuje liczba różnych studentów z obu kursów

Posortuj imiona na każdej liście i połącz je za pomocą , . Pustą listę zapisuje się jako none.

Dostarczony kod odczytuje oba kursy jako wiersze z elementami oddzielonymi przecinkami i wypisuje każdy zwrócony wiersz.

Spróbuj swoich sił

compare_courses <- function(a, b) {
  # Wpisz tutaj swój kod
  c("Both: ", "Only first: ", "Total: 0")
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
cat(compare_courses(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")