小编Mar*_*ark的帖子

我试图打印出符号列表,我想知道是否可以删除引号.

(def process-print-list
  (fn [a-list]
  (cond (empty? a-list) 'false
  (list? a-list) (let [a a-list] (println (first a)) (process-print-
list (rest a) ))
  :else (process-print-list (rest a-list) ))))

列表是('x'y'z))

具有以下输出:

(quote x)
(quote y)
(quote z) 

我只是想把它打印出来:

x
y
z