44 lines
1.4 KiB
Scheme
44 lines
1.4 KiB
Scheme
|
;;; -*-Scheme-*-
|
||
|
|
;;;
|
||
|
|
;;; 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))))
|
||
|
|
|
||
|
|
(print
|
||
|
|
((fix (lambda (f)
|
||
|
|
(lambda (n)
|
||
|
|
(if (zero? n)
|
||
|
|
1
|
||
|
|
(* n (f (- n 1))))))) 9))
|