DZone Snippets: Y-combinator code http://snippets.dzone.com/posts Mon, 08 Sep 2008 03:34:56 GMT DZone Snippets: Y-combinator code the applicative-order Y-combinator http://snippets.dzone.com/posts/show/2732 // description of your code here <br /> <br /><code> <br />(define Y <br /> (lambda (f) <br /> (let ((future <br /> (lambda (future) <br /> (f (lambda (arg) <br /> ((future future) arg)))))) <br /> (future future)))) <br /> <br />((Y (lambda (factorial) <br /> (lambda (n) <br /> (if (= n 0) <br /> 1 <br /> (* n (factorial (- n 1))))))) <br /> 42)</code> Fri, 29 Sep 2006 19:32:05 GMT http://snippets.dzone.com/posts/show/2732 frontera000 (bob bae)