Lisp——case 结构

case 结构像 cond 结构那样实施多个测试-动作子句。但是，它会评估一个键形式，并基于该键形式的评估允许多个动作子句。

case 宏的语法如下 −

CASE 的模板如下：

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

示例

创建一个名为 main.lisp 的新源代码文件并输入以下代码。

main.lisp

; set day as 4
(setq day 4)
; compare day with corresponding cases and print the respective day
(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

示例

更新名为 main.lisp 的源代码文件并输入以下代码。在此示例中，我们将基于用例执行不同的操作。

main.lisp

; set a as 2
(setq a 2)
; set b as 3
(setq b 3)
; set c as 3 to represent a case for multiplication
(setq c 3)

; compare c with corresponding cases and print the respective operation result
(case c
   (1 (print (+ a b)))  ; get sum
   (2 (print (- a b)))  ; get substraction
   (3 (print (* a b)))  ; get multiplication 
   (4 (print (/ a b))))  ; get division

输出

单击“执行”按钮或键入 Ctrl+E 时，LISP 会立即执行它，并返回以下结果 −

6