Reduce

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 35 z 64.

Reduce(f, x) łączy elementy x w jedną wartość: wywołuje f dla dwóch pierwszych elementów, następnie dla wyniku i trzeciego elementu i tak dalej. Z + sumuje wszystkie elementy:

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

Wynik:

[1] 18
[1] 15

Operatory takie jak + również są funkcjami. Zapisany w odwrotnych apostrofach operator `+` można przekazać tak jak każdą inną funkcję. Funkcja Reduce() jest najbardziej przydatna, gdy nie ma wbudowanej funkcji do łączenia, na przykład do zachowywania dłuższego z dwóch słów:

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

Wynik:

[1] "banana"

Trzeci argument, init, to wartość początkowa. Jest używany jako pierwsze acc, a także jest wynikiem, gdy x jest puste:

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

Wynik:

[1] 0
[1] "PNG"

accumulate = TRUE zwraca każdy wynik pośredni zamiast tylko ostatniego, co daje bieżące sumy:

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

Wynik:

[1] 100  70 120  40

Wyzwanie

Łatwy

Uzupełnij running_balance(start, changes). Zaczynając od start, zastosuj każdą zmianę po kolei. Zwróć po jednym wierszu dla każdej zmiany, zawierającym saldo po jej zastosowaniu, after 1: 70, a w ostatnim wierszu lowest: oraz najniższe osiągnięte saldo (wliczając start).

Dostarczony kod odczytuje saldo początkowe i zmiany z wiersza, w którym wartości są oddzielone przecinkami, i wyświetla każdy zwrócony wiersz.

Spróbuj swoich sił

running_balance <- function(start, changes) {
  # Wpisz tutaj swój kod
  character(0)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
cat(running_balance(as.numeric(input[1]), as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")