LISP函数用于定义递归函数

Question

我正在寻找LISP功能的一些帮助。

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

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