function - 定义递归函数的 LISP 函数

Question

我正在寻求有关 LISP 函数的帮助。

我必须编写一个 LISP 函数来定义该函数的递归版本:

平方(1) = 1

Sq(n) = sq(n-1)+2*n – 1 如果 n>1

如果有人能给我指出一个有用的网站或能够提供答案，我将不胜感激!

谢谢。

Answer 1

只需进行一对一的翻译。假设你想要 Common Lisp，这里是实现:

(defun sq (n)
  (if (= n 1)
      1
      (+ (sq (1- n)) n n -1)))