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

المعاملات مثل + هي دوال أيضًا. عند كتابتها بين علامتي backtick، يمكن تمرير `+` مثل أي دالة أخرى. تكون 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")