匹配器关联列表lisp

Question

大家好，我是编程新手，我必须处理像这样的关联列表

((course (john .math) (jim .english) (carl .biology) )
 (year (john .2) (jim. 1) (carl .3))
 (age (john .22) (jim .20) (carl .27))
)

我应该使用匹配器来像这样使用函数查找

(lookup 'john 'course data) and return math

现在我是编程新手，对Lisp也完全陌生，需要为学校做这件事。现在我不需要一个完整的解决方案，但需要一些想法或指示。

这是我目前所拥有的，但花了我很多时间

如果有人能帮忙，我们将不胜感激！！！！

(defun lookup (name course data)
(matches '(name course data) '(first course  )) 
)

Answer 1

首先让我们将数据放入一个名为data的列表中。注意列表需要用'引用，并且.点符号需要用空格包围，因为它们有自己的含义：

(defparameter *data* '((course (john . math) (jim . english) (carl . biology))
                       (year   (john . 2)    (jim . 1)       (carl . 3))
                       (age    (john . 22)   (jim . 20)      (carl . 27))))

现在让我们尝试使用程序assoc:

? *data*
((COURSE (JOHN . MATH) (JIM . ENGLISH) (CARL . BIOLOGY)) (YEAR (JOHN . 2) (JIM . 1) (CARL . 3)) (AGE (JOHN . 22) (JIM . 20) (CARL . 27)))
? (assoc 'course *data*)
(COURSE (JOHN . MATH) (JIM . ENGLISH) (CARL . BIOLOGY))
? (cdr (assoc 'course *data*))
((JOHN . MATH) (JIM . ENGLISH) (CARL . BIOLOGY))
? (assoc 'john (cdr (assoc 'course *data*)))
(JOHN . MATH)
? (cdr (assoc 'john (cdr (assoc 'course *data*))))
MATH

因此该功能变为

(defun lookup (name attr data)
  (cdr (assoc name (cdr (assoc attr data)))))
(lookup 'john 'course *data*) 
=> MATH
(lookup 'carl 'age *data*) 
=> 27