RosettaCodeData/Task/Y-combinator/R/y-combinator-1.r

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