Lift ( Using FIXPOINT implement yin_yang puzzle 2结果同上)

来源:互联网 发布:2014中国云计算大会 编辑:程序博客网 时间:2024/05/15 05:09

(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  yang  yin ))))))    

 

)

 

 

(funcall   chen  chen)