Küme İşlemleri

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

Üç işlev, iki vektörü kümeler olarak birleştirir. Her biri tekrar içermeyen değerler döndürür:

union(a, b) vektörlerden herhangi birinde bulunan değerleri, intersect(a, b) her ikisinde de bulunan değerleri, setdiff(a, b) ise a içinde olup b içinde bulunmayan değerleri içerir.

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

Çıktı:

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

setdiff(), bağımsız değişkenlerinin sırasına bağlıdır. Yalnızca ikinci vektörde bulunan değerleri elde etmek için sıralarını değiştirin:

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

Çıktı:

[1] "dee"

Hiçbir şey kalmadığında, sonuç metin için boş bir vektör olan character(0) olur:

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

Çıktı:

character(0)

Sonuçlar, ilk vektörün sırasını korur. Çıktının öngörülebilir bir sıraya sahip olması gerektiğinde bunları sıralayın ve birleştirmeden önce sonucun boş olup olmadığını kontrol edin:

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

Çıktı:

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

Görev

Kolay

compare_courses(a, b) işlevini tamamla. a ve b, iki dersin öğrencileridir. Üç satır döndür:

Both: ve ardından her iki derste bulunan öğrenciler
Only first: ve ardından yalnızca a içinde bulunan öğrenciler
Total: ve ardından her iki dersteki farklı öğrenci sayısı

Her listedeki adları sırala ve , ile birleştir. Boş bir liste none olarak yazılır.

Sağlanan kod, iki dersi virgülle ayrılmış satırlar olarak okur ve döndürülen her satırı yazdırır.

Kendin dene

compare_courses <- function(a, b) {
  # Kodunuzu buraya yazın
  c("Both: ", "Only first: ", "Total: 0")
}

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