LISP谓词

谓词是函数，测试其参数对一些特定的条件和返回nil，如果条件为假，或某些非nil值条件为true。

下表显示了一些最常用的谓词：

示例 1

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(write (atom 'abcd))
(terpri)
(write (equal 'a 'b))
(terpri)
(write (evenp 10))
(terpri)
(write (evenp 7 ))
(terpri)
(write (oddp 7 ))
(terpri)
(write (zerop 0.0000000001))
(terpri)
(write (eq 3 3.0 ))
(terpri)
(write (equal 3 3.0 ))
(terpri)
(write (null nil ))

当执行以上代码，它返回以下结果：

T
NIL
T
NIL
T
NIL
NIL
NIL
T

示例 2

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(defun factorial (num)
   (cond ((zerop num) 1)
       (t ( * num (factorial (- num 1))))))
(setq n 6)
(format t "~% Factorial ~d is: ~d" n (factorial n))

当执行以上代码，它返回以下结果：

Factorial 6 is: 720