fixpoint

来源:互联网 发布:mac修改maven仓库地址 编辑:程序博客网 时间:2024/05/29 10:56

(setq  fixpoint
      (lambda (h)
          (funcall
               (lambda (x)
                  (funcall h  (funcall  x x) ))
               (lambda (x)
                  (funcall h  (funcall  x x) ))
          )
      )
)

(defun test (n)
(if (> n  0)
      (+ n (test  (-  n  1) ) )
     1
)
)


(fixpoint  'test)