Reduce

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 35 dari 64.

Reduce(f, x) menggabungkan elemen-elemen x menjadi satu nilai: fungsi ini memanggil f pada dua elemen pertama, lalu pada hasil tersebut dan elemen ketiga, dan seterusnya. Dengan +, semuanya dijumlahkan:

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

Output:

[1] 18
[1] 15

Operator seperti + juga merupakan fungsi. Jika ditulis dengan tanda backtick, `+` dapat diteruskan seperti fungsi lainnya. Reduce() paling berguna ketika tidak ada fungsi bawaan untuk kombinasi tersebut, seperti memilih kata yang lebih panjang dari dua kata:

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

Output:

[1] "banana"

Argumen ketiga, init, adalah nilai awal. Nilai ini digunakan sebagai acc pertama, dan juga merupakan hasil ketika x kosong:

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 mengembalikan setiap hasil antara, bukan hanya hasil terakhir, sehingga menghasilkan total berjalan:

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

Output:

[1] 100  70 120  40

Tantangan

Mudah

Lengkapi running_balance(start, changes). Mulai dari start, terapkan setiap perubahan secara berurutan. Kembalikan satu baris untuk setiap perubahan dengan saldo setelah perubahan tersebut, after 1: 70, lalu baris terakhir lowest: diikuti saldo terendah yang tercapai (termasuk start).

Kode yang disediakan membaca saldo awal dan perubahan dalam satu baris yang dipisahkan koma, lalu mencetak setiap baris yang dikembalikan.

Coba sendiri

running_balance <- function(start, changes) {
  # Tulis kodemu di sini
  character(0)
}

# Kode input/output yang disediakan: biarkan apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(running_balance(as.numeric(input[1]), as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")