Question

我只是在学习LISP而我在执行以下操作时遇到了麻烦：

; return ":h :i"
(defun get-char() 
  (loop for char across "ab" 
        collect (concatenate 'string ":" (string char))))

; plist
(defun get-list() (list :a "1" :b "2"))

; I cannot get this to work 
; <-- returns all null, cannot get plist values :-(
(loop for x in (get-char) 
      collect (getf (get-list) x))

; this works fine...
(loop for x in '(:a :b) 
      collect (getf (get-list) x))

我知道我很接近，但我只是遗漏了一些东西。

非常感谢： - ）

Answer 1

更改get-char功能，以便从字符中返回关键字列表：

(defun get-char() 
  (loop 
    for char across "ab" 
    collect (intern (string-upcase char) :keyword)))

评估(get-char) =＆gt; (:A :B)。此外：

(loop for x in (get-char) collect (getf (get-list) x))

=＆GT;

("1" "2")

简单的LISP问题

1 个答案: