相关疑难解决方法(0)

我有以下数学表达式:

; f(n) = f(n - 1) + f(n - 2)   where n >= 2 
; f(n) = n where n < 2`

我将其转换为正常的递归LISP调用:

(define (f n)
  (cond ((< n 2) n)
        (else (+ (f (- n 1))
                 (f (- n 2))))))

我如何将上述内容转换为尾递归过程？我不习惯函数式编程,所以我有点挣扎.