Funktionen zurückgeben

Teil des Abschnitts Logik und Ablaufsteuerung der R-Journey von Coddy. Lektion 29 von 64.

Eine Funktion kann auch eine Funktion zurückgeben. make_multiplier(3) gibt eine neue Funktion zurück, die ihr Argument mit 3 multipliziert:

make_multiplier <- function(n) {
  function(x) x * n
}
triple <- make_multiplier(3)
print(triple(5))
print(make_multiplier(10)(5))

Ausgabe:

[1] 15
[1] 50

Die zurückgegebene Funktion merkt sich die Werte, mit denen sie erstellt wurde. Diese Kombination aus einer Funktion und den Variablen in ihrer Umgebung wird als Closure bezeichnet. Jeder Aufruf des Erstellers erstellt eine separate Closure:

make_greeter <- function(greeting) {
  function(name) paste0(greeting, ", ", name, "!")
}
hello <- make_greeter("Hello")
hola <- make_greeter("Hola")
print(hello("Ada"))
print(hola("Ada"))

Ausgabe:

[1] "Hello, Ada!"
[1] "Hola, Ada!"

Eine Erzeugerfunktion verwandelt einige Einstellungen in ein fertiges Werkzeug, zum Beispiel einen Einheitenumrechner:

make_converter <- function(factor, offset = 0) {
  function(x) x * factor + offset
}
c_to_f <- make_converter(1.8, 32)
km_to_miles <- make_converter(0.621)
print(c_to_f(100))
print(km_to_miles(10))

Ausgabe:

[1] 212
[1] 6.21

Funktionen können zu neuen Funktionen kombiniert werden. compose(f, g) gibt eine Funktion zurück, die zuerst f und dann g ausführt:

compose <- function(f, g) function(x) g(f(x))
clean <- compose(trimws, toupper)
print(clean("  hi there "))

Ausgabe:

[1] "HI THERE"

Aufgabe

Einfach

Vervollständige make_formatter(prefix, digits). Sie gibt eine Funktion zurück, die eine Zahl entgegennimmt und prefix, gefolgt von der Zahl mit digits Nachkommastellen, zurückgibt: make_formatter("$", 2)(3.5) gibt $3.50 zurück.

sprintf("%.*f", digits, x) formatiert x mit digits Nachkommastellen.

Der bereitgestellte Code liest das Präfix, die Anzahl der Nachkommastellen und eine durch Kommas getrennte Liste von Zahlen ein. Er erstellt einen Formatter und gibt dessen Ergebnis für jede Zahl aus.

Probier es selbst

make_formatter <- function(prefix, digits) {
  # Schreibe deinen Code hier
  function(x) ""
}

# Bereitgestellter Ein-/Ausgabe-Code: belasse ihn wie er ist
input <- suppressWarnings(readLines(file("stdin")))
fmt <- make_formatter(input[1], as.integer(input[2]))
for (x in as.numeric(strsplit(input[3], ",")[[1]])) cat(fmt(x), "\n", sep = "")