Рекурсия

@Фрэй · Регистрация: 11.01.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста с заданием:
Связать базу данных (потомок, родители) с глобальной переменной
FAMILY:

Lisp

(setf family '((colin nil nil) 
                  (deirdre nil nil) 
                  (arthur nil nil) 
                  (kate nil nil) 
                  (frank nil nil) 
                  (linda nil nil) 
                  (suzanne colin deirdre) 
                  (bruce arthur kate) 
                  (charles arthur kate) 
                  (david arthur kate) 
                  (ellen arthur kate) 
                  (george frank linda) 
                  (hillary frank linda) 
                  (andre nil nil) 
                  (tamara bruce suzanne) 
                  (vincent bruce suzanne)
                  (wanda nil nil) 
                  (ivan george ellen) 
                  (julie george ellen) 
                  (marie george ellen)
                  (nigel andre hillary) 
                  (frederick nil tamara) 
                  (zelda vincent wanda) 
                  (joshua ivan wanda) 
                  (quentin nil nil) 
                  (robert quentin julie) 
                  (olivia nigel marie) 
                  (peter nigel marie) 
                  (erica nil nil) 
                  (yvette robert zelda) 
                  (diane peter erica))))

Определить функцию SIBLINGS, которая возвращает список родных и единокровных братьев или сестер для любого представителя генеалогического дерева.

На форуме было уже это генеалогическое древо, но задание у меня другое.
Заранее спасибо =)

@Catstail · 25.10.2014, 20:29

Что-то непонятно... Берем Колина (1-й элемент). У него нет родителей или нет потомков?

@Фрэй · 25.10.2014, 20:45 **[ТС]**

Catstail, У него нет родителей. Как и у пятерых последующих. А дальше первое имя - ребенок, второе - его отец, третье - мать.

@Catstail · 25.10.2014, 21:20

HomeLisp, без рекурсии:

Lisp

(defun родные (person family)
  (let ((parents (cdar (remove-if-not #'(lambda (x) (eq (car x) person)) family))))
    (mapcar 'car (remove-if-not #'(lambda (x) (equal (cdr x) parents)) family))))
         
 
==> родные
(родные 'robert family)
 
==> (robert)
 
(родные 'olivia family)
 
==> (olivia peter)
 
(defun сводные (person family)
  (let ((parents (cdar (remove-if-not #'(lambda (x) (eq (car x) person)) family))))
   (remove person
    (mapcar 'car
       (remove-if-not 
         #'(lambda (x) (or (eq (cadr x) (car parents)) 
                           (eq (caddr x) (cadr parents)))) family)))))
         
==> сводные
 
(сводные 'zelda family)
 
==> (joshua)

@Фрэй · 25.10.2014, 21:41 **[ТС]**

Catstail, там надо, чтобы это была одна программа. И с рекурсией, потому что тема такая.

@Фрэй · 28.10.2014, 19:46 **[ТС]**

Если не сложно, хотя бы алгоритм набросайте. Дальше я как-нибудь соображу)

@Catstail · 29.10.2014, 16:33

Lisp

(defun родные (person family)
 (labels ((get-parents (x family) 
           (cond ((null family) nil)
                 ((eq x (caar family)) (cdar family))
                 (t (get-parents x (cdr family)))))
          (task (par family)
            (cond ((null family) nil)
                  ((equal (cdar family) par) (cons (caar family) (task par (cdr family))))
                  (t (task par (cdr family))))))
       (task (get-parents person family) family)))
         
==> родные
 
(родные 'peter family)
 
==> (olivia peter)

Добавлено через 4 минуты
Точнее, вот так:

Lisp

(defun родные (person family)
 (labels ((get-parents (x family) 
           (cond ((null family) nil)
                 ((eq x (caar family)) (if (cadar family) (cdar family) nil))
                 (t (get-parents x (cdr family)))))
          (task (par family)
            (cond ((null family) nil)
                  ((equal (cdar family) par) (cons (caar family) (task par (cdr family))))
                  (t (task par (cdr family))))))
       (task (get-parents person family) family)))
 
==> родные
 
(родные 'kate family)
 
==> NIL
 
(родные 'peter family)
 
==> (olivia peter)

Новые блоги и статьи
Как проверить, что файл НЕ существует с помощью Bash bytestream 25.01.2025 В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .	Как проверить, что строка пустая, неопределена или null в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .	Как проверить существование ключа в объекте или массиве в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript программисты постоянно сталкиваются с необходимостью работать с объектами и массивами. Эти структуры данных являются фундаментальными элементами языка и. . .	Как создать ArrayList из массива (array) в Java bytestream 25.01.2025 При разработке программного обеспечения на языке Java программисты часто сталкиваются с необходимостью эффективного управления наборами данных. Массивы и ArrayList являются двумя фундаментальными. . .	Как сгенерировать случайные целые числа (int) в указанном диапазоне в Java bytestream 25.01.2025 В программировании генерация случайных чисел является важнейшим инструментом для решения множества практических задач. От создания игровых механик до реализации алгоритмов машинного обучения, от. . .	Как сделать, чтобы grep выводил строки до и после найденной hw_wired 25.01.2025 Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .

@Catstail Модератор 37449 / 20820 / 4281 Регистрация: 12.02.2012 Сообщений: 34,240 Записей в блоге: 14
	25.10.2014, 20:29	2
	Что-то непонятно... Берем Колина (1-й элемент). У него нет родителей или нет потомков? 0

@Фрэй 1 / 1 / 0 Регистрация: 11.01.2014 Сообщений: 17
	25.10.2014, 20:45 [ТС]	3
	Catstail, У него нет родителей. Как и у пятерых последующих. А дальше первое имя - ребенок, второе - его отец, третье - мать. 0

@Фрэй 1 / 1 / 0 Регистрация: 11.01.2014 Сообщений: 17
	25.10.2014, 21:41 [ТС]	5
	Catstail, там надо, чтобы это была одна программа. И с рекурсией, потому что тема такая. 0

@Фрэй 1 / 1 / 0 Регистрация: 11.01.2014 Сообщений: 17
	28.10.2014, 19:46 [ТС]	6
	Если не сложно, хотя бы алгоритм набросайте. Дальше я как-нибудь соображу) 0

	29.10.2014, 16:33