LISP princ 代码

LISP是一种编程语言，它的代码使用括号表示表达式。以下是一个简单的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的函数，用于计算一个数的阶乘。然后，它从用户输入一个数，并调用factorial函数来计算该数的阶乘，并将结果输出到控制台上。