Talk:Y combinator: Difference between revisions

Content added Content deleted

Inline

@@ Line 74: / Line 74: @@
 (define Y
   (lambda (f)
-    (f (delay (Y f)))))
+    ((lambda (x)
+       (f (delay (x x))))
+     (lambda (x)
+       (f (delay (x x)))))))
 </lang>
 but you have to call the function with <lang scheme>(force f)</lang>
@@ Line 80: / Line 83: @@
 <lang scheme>
 (define fact
-  (lambda (f)
+  (Y
-    (lambda (n)
+   (lambda (f)
-      (if (= n 0) 1
+     (lambda (n)
-          (* n ((force f) (- n 1)))))))
+       (if (zero? n)
+           (* n ((force f) (- n 1))))))))
 </lang>
+''Edit: Err... I think I messed it up a little, it should be ok now.''
 [[Special:Contributions/93.144.202.116|93.144.202.116]]