emacs - 在Elisp中的lambda递归

Question

我有以下Python代码:

def sum_fibonacci():
    '''Project Euler: 2
    Sum of even-valued terms of Fibonacci sequence < 4 mil
    '''
    def i(a, b, acc):
        if a >= 4000000: return acc
        if a % 2 == 0:
            return i(a + b, a, acc + a)
        else: return i(a + b, a, acc)
    return i(2, 1, 0)

我想将其翻译为Emacs Lisp。在 Higher-order functions in Elisp中，我被告知不要在 defun中使用 defun，因为它全局启用了该功能，所以我改为编写了lambda。但是我需要使lambda递归调用自己。

我的代码是:

(defun sum-fibonacci ()
  (let ((i
         (lambda (a b acc)
           (cond ((>= a 4000000) acc)
                 ((evenp a) (funcall i (+ a b) a (+ a acc)))
                 (t (funcall i (+ a b) a acc))))))
    (funcall i 2 1 0)))

但是函数 i在被分配给 let之前被调用，并且我得到一个错误- *** Eval error *** Symbol's value as variable is void: i
如何在Elisp中的lambda中进行递归？

Answer 1

每Recursing in a lambda function我用labels重写它:

(defun sum-fibonacci ()
  (labels ((i (a b acc)
              (cond ((>= a 4000000) acc)
                    ((evenp a) (i (+ a b) a (+ a acc)))
                    (t (i (+ a b) a acc)))))
    (i 2 1 0)))