Reduce

חלק מהיחידה לוגיקה וזרימת תוכנית במסלול ה-R של Coddy. שיעור 35 מתוך 64.

Reduce(f, x) מאחדת את האיברים של x לערך אחד: היא קוראת ל־f עם שני האיברים הראשונים, ואז עם התוצאה הזאת והאיבר השלישי, וכן הלאה. עם + היא מחברת את הכול:

print(Reduce(function(acc, x) acc + x, c(3, 5, 10)))
print(Reduce(`+`, 1:5))

פלט:

[1] 18
[1] 15

גם אופרטורים כמו + הם פונקציות. כשכותבים אותם בין גרשיים הפוכים, אפשר להעביר את `+` כמו כל פונקציה אחרת. Reduce() שימושית במיוחד כשאין פונקציה מובנית לצירוף, למשל כששומרים את הארוכה מבין שתי מילים:

longer <- function(a, b) if (nchar(b) > nchar(a)) b else a
print(Reduce(longer, c("fig", "banana", "kiwi", "cherry")))

פלט:

[1] "banana"

הארגומנט השלישי, init, הוא הערך ההתחלתי. הוא משמש כ-acc הראשון, והוא גם התוצאה כאשר x ריק:

print(Reduce(`+`, c(), 0))
print(Reduce(function(acc, w) paste0(acc, toupper(substr(w, 1, 1))), c("portable", "network", "graphics"), ""))

פלט:

[1] 0
[1] "PNG"

accumulate = TRUE מחזיר כל תוצאה ביניים במקום רק את האחרונה, וכך מתקבלים סכומים מצטברים:

deposits <- c(100, -30, 50, -80)
print(Reduce(`+`, deposits, accumulate = TRUE))

פלט:

[1] 100  70 120  40

אתגר

קל

השלימו את running_balance(start, changes). התחילו מ־start, והחילו כל שינוי לפי הסדר. החזירו שורה אחת לכל שינוי עם היתרה שאחריו, after 1: 70, ובשורה האחרונה lowest: ואחריו היתרה הנמוכה ביותר שהתקבלה (כולל start).

הקוד שסופק קורא את יתרת ההתחלה ואת השינויים בשורה מופרדת בפסיקים, ומדפיס כל שורה שהוחזרה.

נסו בעצמכם

running_balance <- function(start, changes) {
  # כתבו את הקוד שלכם כאן
  character(0)
}

# קוד קלט/פלט שסופק: השאירו אותו כפי שהוא
input <- suppressWarnings(readLines(file("stdin")))
cat(running_balance(as.numeric(input[1]), as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")