Может ли кто-нибудь дать мне несколько советов по этому вопросу (Семейное древо)? - PullRequest
Новая
       12

Может ли кто-нибудь дать мне несколько советов по этому вопросу (Семейное древо)?

3 голосов
/ 15 сентября 2011

Это из моих домашних заданий.Существует семейное древо 

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

а, а б - самое старое.и каждый женатый человек второго человека не является частью первоначальной семьи.Теперь мне нужно написать функцию супруга, родного брата, детей, внуков, родителей и бабушек и дедушек.

Я написал список следующим образом: ((отец мать) 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))

)

Я знал, что это неправильно, но я не знаю, как это пересмотреть ... и мне тоже нужно немногопомогите с другими функциями.надежда может получить некоторые советы от вас, ребята.

Ответы [ 2 ]

1 голос
/ 15 сентября 2011

Так как это домашнее задание, я не буду давать полное решение, но этого будет достаточно, чтобы решить остальное: 

(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 должна быть довольно простой, учитывая этот пример.

0 голосов
/ 17 сентября 2011

Я не знаю, почему он может возвращать только первый уровень и второй уровень, например. a возвращает b, c возвращает u. но когда я ввожу m , он возвращает ошибку:

- MEMBER: A proper list must not end with F.

Я проверил код и не нашел никаких проблем. почему он не может искать третий уровень? но он может найти внуков, поэтому я думаю, что если он может проводить поиск внуков, почему он не может искать супругов? что-то не так с Member функцией? в любом случае, ваш код действительно прост и легок для чтения и понимания. Большое спасибо. 

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