谁能给我一些关于这个问题的提示（家谱）？

Question

它来自我的家庭作业。有一个家谱

                             a  +  b
                         /   |    |   \ 
                        c+u  d+c  e+w  f
                     / | \        / \
                 m+x  n+y  o      p  q
                  |
                  r

a 和 b 是最古老的。而每个已婚人士的第二个人都不是原生家庭的一部分。 现在我需要编写配偶、兄弟姐妹、孩子、孙子、父母和祖父母函数。

我写的清单如下： ( (father mother) chlid1 child2 child3)

(((a b) c d e f) ((c u) m n o) ((d v) nil) ((e w) p q) (f nil) ((m x) r) ((n y) nil) (o nil) (p nil) (q nil)  )

我的兄弟函数有一些问题，这是我的代码。

(defun sibling  (arglst lst)  
 (cond
        ((eql 
             arglst (cdr (car lst))) 
                 (rest (cdr lst))
         )
   (T (sibling (rest lst) arglst))

)

我知道这是错误的，但我不知道如何修改它..而且我还需要其他功能的帮助。希望能从你们那里得到一些提示。

Answer 1

由于这是家庭作业，我不会给出完整的解决方案，但这应该足以让您解决其余问题：

(defparameter *family* '(((a b) c d e f)
                         ((c u) m n o)
                         ((d v) nil)
                         ((e w) p q)
                         (f nil)
                         ((m x) r)
                         ((n y) nil)
                         (o nil)
                         (p nil)
                         (q nil)))

(defun siblings (person family)
  "Return a list of PERSON's siblings."
  (remove person (cdr (find person family :key #'cdr :test #'member))))

(defun siblingsp (person1 person2 family)
  "Are PERSON1 and PERSON2 siblings?"
  (find person2 (siblings person1 family)))

(defun parents (person family)
  "Return a list of PERSON's parents."
  (car (find person family :key #'cdr :test #'member)))

(defun parentp (parent child family)
  "Is PARENT a parent of CHILD?"
  (find parent (parents child family)))

尝试一下：

CL-USER> (siblings 'p *family*)
(Q)
CL-USER> (siblingsp 'q 'p *family*)
P
CL-USER> (parents 'p *family*)
(E W)

例如，现在要找到祖父母，您只需了解祖父母是什么：​​（ ) 父母双方的父母。然后，问问自己，孙子们过得怎么样。最后，鉴于此示例，spouse 函数应该相当简单。

Answer 2

例如，我不知道为什么它只能返回第一级和第二级。 a 返回 b，c 返回 u 。但是当我输入 m 时，它返回一个错误：

- MEMBER：正确的列表不得以 F 结尾。

我检查了代码，没有发现任何问题。为什么它不能搜索第三层？但它可以找到孙子，所以我想如果它可以做孙子搜索为什么它不能做配偶搜索？ Member 函数有问题吗？无论如何，您的代码非常简单且易于阅读和理解。多谢。

(defun spouse ( family-tree2 person) ;Find person's spouse
   (remove person (car (find person family-tree2 :key #'car :test #'member)))
);end