פעולות על קבוצות

חלק מהיחידה לוגיקה וזרימת תוכנית במסלול ה-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")