定义递归函数的 LISP 函数

【问题标题】：LISP function to define a recursive function定义递归函数的 LISP 函数
【发布时间】：2023-04-01 15:37:01
【问题描述】：

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

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

Sq(1) = 1

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

如果有人可以将我指向一个有用的网站或能够提供答案，那将不胜感激！

谢谢。

【问题讨论】：

【解决方案1】：

只需进行一对一翻译。假设你想要 Common Lisp，下面是实现：

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

【讨论】：