在Common Lisp中的字符串切換

Question

如何在Common Lisp的字符串上執行條件分發？我在尋找類似：

(case str 
     ("a"  "found an a") 
     ("abc"  "found an abc") 
     (otherwise "other")) 

這樣（字母 「a」）返回 「發現了一個」

Answer 1

的string-case庫實現此功能。它可以從quicklisp獲得。

Answer 2

我能得到它的工作由字符串轉換爲一個符號：

(case (intern (string-upcase str)) 
    (a   "found an a") 
    (abc  "found an abc") 
    (otherwise "other")) 

Answer 3

一個微不足道的（和潛在的慢）變種會是這樣的：

(defmacro string-case (str &rest forms) 
    (let* ((strval (gensym "STRVAL")) 
     (cond-body (loop for (s . f) in forms 
          collect `((string= ,strval ,s) ,@f)))) 
    `(let ((,strval ,str)) (cond ,@cond-body)))) 

這（不幸）不允許使用else，otherwise或字符串分組，但是使該擴展應該非常簡單。使用quicklisp中的現有字符串可能是更好的選擇。通過塞貝爾

(switch (str :test #'equal) 
    ("a" "found an a") 
    ("abc" "found an abc") 
    (t "other")) 

Answer 4

亞歷山大有宏switch，cswitch，eswitch。這對我使用簡單的字符「A」「B」等是很有效的。要查看字符和字符串實際上是在嘗試使用（格式nil「〜：C」c）c是字符還是（格式nil「〜：S」s） s是串。

(defun prompt-read(prompt) 
    (format *query-io* "~a: " prompt) 
    (force-output *query-io*) 
    (read-char *query-io*)) 
(defun move() 
    (case(prompt-read "ROW[A-C]") 
    (#\A (print "A")) 
    (#\B (print "B")) 
    (#\C (print "C")))) 

Answer 5

這是從實用Common Lisp的只有正在使用的讀取字符，而不是讀行所做的更改：