Reduce

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 35 di 64.

Reduce(f, x) combina gli elementi di x in un unico valore: chiama f sui primi due elementi, poi sul risultato e sul terzo elemento, e così via. Con + somma tutto:

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

Output:

[1] 18
[1] 15

Anche gli operatori come + sono funzioni. Racchiuso tra backtick, `+` può essere passato come qualsiasi altra funzione. Reduce() è molto utile quando non esiste una funzione integrata per la combinazione, ad esempio per mantenere la più lunga tra due parole:

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

Output:

[1] "banana"

Il terzo argomento, init, è il valore iniziale. Viene usato come primo acc ed è anche il risultato quando x è vuoto:

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

Output:

[1] 0
[1] "PNG"

accumulate = TRUE restituisce ogni risultato intermedio invece dell'ultimo soltanto, fornendo i totali progressivi:

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

Risultato:

[1] 100  70 120  40

Sfida

Facile

Completa running_balance(start, changes). Partendo da start, applica ogni modifica nell’ordine indicato. Restituisci una riga per ogni modifica con il saldo successivo, after 1: 70, e un’ultima riga lowest: seguita dal saldo minimo raggiunto (incluso start).

Il codice fornito legge il saldo iniziale e le modifiche da una riga con valori separati da virgole e stampa ogni riga restituita.

Provalo tu

running_balance <- function(start, changes) {
  # Escribe tu código aquí
  character(0)
}

# Código de entrada/salida proporcionado: mantenlo tal como está
input <- suppressWarnings(readLines(file("stdin")))
cat(running_balance(as.numeric(input[1]), as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")