Anwenden einer Funktion zweimal in R

Question

Ich möchte eine Funktion in R definieren, die als Argument eine Funktion nimmt und sie zweimal auf ihre Argumente anwendet.

Zum Beispiel

x <- function twice (plusone 1) 

3 

In Haskell it is done by twice f = \x -> f (f x) 

.

Wie geht das in R?

Answer 1

twice <- function(f, x) f(f(x)) 
twice(function(x) x+1, 1) 
# 3 

die als

nice <- function(f, n, x) if(n==1) f(x) else Recall(f, n-1, f(x))  
nice(function(x) x+1, 2, 1) 

Answer 2

verallgemeinert werden können, wenn Sie von Haskell anreisen, werden Sie erkennen, dass currying einfach ist, wie auch in R zu tun. Diese Antwort ist auch vollständiger als @ Baptistes. Siehe die letzte Bemerkung

repeatf <- 
    function (n) function (f) function (x) 
    if (n<=0) x else repeatf (n-1) (f) (f(x)) 

once <- repeatf (1) 
twice <- repeatf (2) 
thrice <- repeatf (3) 

square <- function (x) x * x 
once (square) (2) # 4 
twice (square) (2) # 16 
thrice (square) (2) # 256 

Bemerkenswert, wenn n eine dynamische Variable in Ihrem Programm ist, es möglicherweise 0 oder eine negative Zahl sein könnte. repeatf wird in den Fällen,

repeatf (0) (square) (2) # 2 
repeatf (-3) (square) (2) # 2 

@ Baptistes Lösung wäre nicht mit

nice(square, 0, 2) # Error: evaluation nested too deeply: infinite recursion/options(expressions=)? 
nice(square, -3, 2) # Error: evaluation nested too deeply: infinite recursion/options(expressions=)?