- 172 名前：デフォルトの名無しさん mailto:sage [2005/05/31(火) 22:52:36 ]
- (setf (symbol-function ... はムリムリ感が強いなあ。
(defvar Y
(lambda (f)
((lambda (proc)
(funcall f (lambda (arg) (funcall (funcall proc proc) arg))))
(lambda (proc)
(funcall f (lambda (arg) (funcall (funcall proc proc) arg)))))))
(defvar fact0
(lambda (f)
(lambda (n)
(if (zerop n)
1
(* n (funcall f (- n 1)))))))
(funcall (funcall Y fact0) 5) => 120
