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

4 lines
96 B
R
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
Y <- function(f) {
(function(x) { (x)(x) })( function(y) { f( (function(a) {y(y)})(a) ) } )
}