LISP princ 代码示例 - 计算阶乘

LISP 是一种编程语言，它的代码使用括号表示表达式。以下是一个简单的 LISP 代码示例，演示如何定义一个名为 'factorial' 的函数来计算一个数的阶乘，并使用 LISP 代码进行用户输入和输出。

(defun factorial (n)
  (if (<= n 1)
      1
      (* n (factorial (- n 1)))))

(format t 'Enter a number: ')
(let ((num (read)))
  (format t 'The factorial of ~a is ~a' num (factorial num)))

这段代码首先定义了一个名为 'factorial' 的函数，它接受一个参数 'n'，并根据以下逻辑计算 'n' 的阶乘：

• 如果 'n' 小于或等于 1，则返回 1。
• 否则，返回 'n' 乘以 'n-1' 的阶乘。

接下来，代码提示用户输入一个数字，并将输入存储在变量 'num' 中。然后，它使用 'factorial' 函数计算 'num' 的阶乘，并将结果输出到控制台上。