小编Cas*_* D.的帖子

我正试图用Lisp 解决Project Euler问题2.这个递归解决方案在执行时打击堆栈,但我认为Lisp(使用clisp)会识别尾递归.这正在进入顶级.

(defun e2-problem (&optional (f1 1) (f2 1) (sum 0))  
   "Sum fibonacci sequence, even terms up to 4 million"

   (if (> f2 4000000) sum)
   (e2-problem f2 (+ f1 f2) (if (evenp f2) 
                                (+ sum f2) 
                               sum))

我的实现没有正确安排优化吗？我想如果我不能依赖惯用的递归,这会妨碍我的Lisp教育.