(setq zero nil )
(setq one 'chenbing )
(setq incr (lambda (x) (cons one x )))
(defun nature (now n)
(if (> n 0)
(nature (funcall incr now) (- n 1) )
now
)
)
(nature zero 10)
(nature zero 11)
(nature zero 12)
(nature zero 13)
本文通过具体的Lisp代码示例介绍了如何使用递归函数实现数值计算的过程。重点讲解了函数定义、参数传递及递归调用的基本原理。
643

被折叠的 条评论
为什么被折叠?



