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")