Не получается запустить программу!Помогите найти ошибку!!!

; Лабораторная работа №1
; В данной задаче требуется найти всех родительских элементов дерева
;
Представим все дерево в виде списка со структурой ((отец1 ребенок1) (отец1 ребенок2) ...)

(setq Tree '(("Иван" "Алексей") ("Иван" "Анна")

("Мария" "Алексей") ("Мария" "Анна")

("Ольга" "Елена") ("Ольга" "Семен2")

("Алексей" "Елена") ("Алексей" "Семен2")

("Анна" "Александр") ("Семен1" "Александр")))

; Далее создадим рекурсивную функцию поиска родителей
(defun findParents (ltree child)

; Ищет и выводит всех родителей элемента

; ltree - дерево
; child - дочерний элемент, родителей которого следует найти

(setq elem (car ltree)) ;
elem == первый элемент дерева
(if (string= (car (cdr elem)) child)
;Если хвост элемента elem == искомогу ребенку, то

(progn
(print (car elem))
(findParents Tree (car elem))
;и ищем его потомков во всем дереве
)
)
; Если остаток от ltree все еще существует, т.е. не достигнут конец списка
(if (cdr ltree)
(findParents (cdr ltree) child)
;Ищем потомков дальше
)

)
(findParents Tree "Семен2")

0

Это Вы лисп в прологе запускаете?)

0

Сообщение от Грымзик Это Вы лисп в прологе запускаете?)

Не совсем так, я перепечатал текст в пролог убрал все пробелы, но все равно не помогло))

0

Неужели по-Вашему пролог от лиспа только пробелами отличается? Посмотрите код в соседних темах, и что называется "найдите 5 отличий". Хотя можете и не смотреть, я и так знаю, что между их синтаксисами нет ничего общего. Программу надо писать с нуля. Только в прологе странно будет родетелей-детей в виде дерева хранить.

0