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

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