Lift ( Using FIXPOINT implement yin_yang puzzle)

来源:互联网 发布:商城系统源码 编辑:程序博客网 时间:2024/05/29 10:36

(defun  fixpoint  ( x  y)
(funcall   y    (funcall  x  x  y) )
)

(setq  chen   (fixpoint   'fixpoint  
       (lambda (yin )   
               (progn    
                  (print 'a)
                         (lambda (yang  )             
                              (progn
                                (print 'b)
                                (funcall  yin  yang ))))))   

)


(funcall   chen  chen)

原创粉丝点击