无涯教程-LISP - case函数

case语句构造实现了多个test-action子句，与cond构造类似。

case - 语法

case宏的语法是-

(case  (keyform)
((key1)   (action1   action2 ...) )
((key2)   (action1   action2 ...) )
...
((keyn)   (action1   action2 ...) ))

case - 示例

创建一个名为main.lisp的新源代码文件，并在其中键入以下代码。

(setq day 4)
(case day
(1 (format t "~% Monday"))
(2 (format t "~% Tuesday"))
(3 (format t "~% Wednesday"))
(4 (format t "~% Thursday"))
(5 (format t "~% Friday"))
(6 (format t "~% Saturday"))
(7 (format t "~% Sunday")))

单击执行按钮或键入Ctrl+E时，LISP会立即执行它，并且返回的结果为-

Thursday

参考链接

www.learnfk.com/lisp/lisp-c…