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)))