Архив форумов ЦИТФорума

[gogo]

Господа, помогите найти ошибку в программе.
Что должна делать?
Рекурсия, 2 списка: (f '(a b c d) '(c d e)) в один список с помощью рекурсии.

( setq l3 nil )
( defun f(l1 l2)
(
cond ( (Null l1) (append l3 l2))
( t (
cond ( (Null (member (car l1) l2))) (setq l3 (append l3 (car l1))) )
( t (l3))

(f ((cdr l1) l2))
)
)
)





l3 содержит те элементы списка l1 которых нет в l2 (7 строчка), а которые есть - просто игнорируются(8 строчка).
а в конце, когда первый список пуст мы возвращяем обединеный список l3 с l2 (5 строчка).