Контрольная работа. Функциональное и логическое программирование. Вариант 7. ДО СибГУТИ.

Задание.
Вариант задачи выбирается по последней цифре пароля. Программы должны быть написаны на языке двух языках: Лисп и Пролог. В программе на Прологе исходные данные должны вводиться с клавиатуры, цель - внутренняя.
Сформируйте новый список, включающий в себя элементы, не входящие в два списка (симметpичную pазность множеств).
Например: На Лиспе для списков (1 2 3 5) и (6 4 1 8 3) результатом будет список
(2 5 6 4 8).

Листинг программы на языке Лисп
(DEFUN MEMBER (X L)
(COND
((NULL L) NIL)
((EQUAL X (CAR L)) T)
(T (MEMBER X (CDR L)))
)
)

(DEFUN CREATE (L1 L2)
(COND
((NULL L1) NIL)
((NOT (MEMBER (CAR L1) L2)) (CONS (CAR L1) (CREATE (CDR L1)
...........................................

Листинг программы на языке Пролог
domains
 list = integer*
predicates
 member(integer, list)
 create(list, list, list)
append(list, list, list)
clauses
 member(X, [X|_]) :- !.
 member(X, [_|T]) :- member(X, T).
 create([], _, []).
 create([H|T], L, [H|R]) :- not(member(H, L)), create(T, L, R).
 create([_|T], L, R) :- create(T, L, R).
append([], L, L).
append([H|T], L, [H|T1]) :- append(T, L, T1).
goal
.................

Проверил: Галкина М.Ю.
Оценка:"Отлично!"
Без замечаний!
Год сдачи 2013.