本文探讨了函数式编程中的固定点概念，并通过具体的 Lisp 代码实现了一个递归函数来计算数值。文中详细介绍了如何使用高阶函数和 lambda 表达式来创建递归结构，避免直接使用递归调用。
(setq my
(lambda ( f)
(lambda (n)
(if (> n 0)
(+ n (funcall (funcall f f) (- n 1) ) )
0
)
)
)
)
(setq my
(lambda (n)
(if (> n 0)
(+ n (funcall my (- n 1) ) )
0
)
)
)
(setq fixpoint
(lambda (f)
(funcall
(lambda (x) (funcall f (lambda ()(funcall x x )) ))
(lambda (x) (funcall f (lambda ()(funcall x x )) ))
)
)
)
(setq newmy (funcall fixpoint
(lambda (s)
(lambda (n)
(if (> n 0) (+ n (funcall (funcall s ) (- n 1) ) ) 0 )
)
)
))
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
