-------- Original Message --------
Subject: [cs-discuss] a hard to understand scheme program
Date: Tue, 16 Jan 2007 15:46:32 +0200
From: Anıl Özselgin <[EMAIL PROTECTED]>
To: discuss <[EMAIL PROTECTED]>
;----------------------------------------------------
;
; Putting Scheme to Work
; By Olivier Danvy
; Bigre special edition "Putting Scheme to Work"
;
(define fix
(let ((z (lambda (P)
(lambda (u)
(lambda (t)
(lambda (t)
(lambda (i)
(lambda (n)
(lambda (g)
(lambda (S)
(lambda (c)
(lambda (h)
(lambda (e)
(lambda (m)
(lambda (e)
(lambda (t)
(lambda (o)
(lambda (W)
(lambda (o)
(lambda (r)
(lambda (k)
(lambda (!)
(! (lambda (break)
(((((((((((((((((((((W o) r) k)
W) o) r) k)
W) o) r) k)
W) o) r) k)
W) o) r) k) !)
break)))))))))))))))))))))))))
(let ((Z z))
(((((((((((((((((((z z) z) z) z) z) Z) Z) Z) Z) Z) Z) Z) z) z) z)
z) z) z) z))))
((fix (lambda (f)
(lambda (n)
(if (zero? n)
1
(* n (f (- n 1))))))) 9)
;----------------------------------------------------------------
--
Emre Sevinç
eMBA Yazılım Geliştirme
İstanbul Bilgi Üniversitesi
_______________________________________________
cs-discuss mailing list
[EMAIL PROTECTED]
http://cs.bilgi.edu.tr/mailman/listinfo/cs-discuss
_______________________________________________
cs-lisp mailing list
cs-lisp@cs.bilgi.edu.tr
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp
