Y Combinator in R

y.r

## fact <- function(x) {
##     if (x == 1) {
##         1
##     }
##     else {
##         x * fact(x - 1)
##     }
## }

## fact(5)
## ## [1] 120

(function(f) {
    (function(x) {
        (x) (x)
    })(function(y) {
        f((function(a) {
            y(y)
        })(a))
    })
})(function(f) {
    function(n) {
        if (n == 1)
            1
        else
            n * f(n-1)
    }})(5)
## [1] 120

Y <- function(f) {
    (function(x) {
        (x) (x)
    })(function(y) {
        f((function(a) {
            y(y)
        })(a))
    } )
}


fact <- function(f) {
    function(n) {
        if (n == 1)
            1
        else
            n * f(n-1)
    }
}

Y(fact)(5)
## [1] 120