Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Простейшие функции на прологе. / simple2
.pl member(E, [E|_]).
member(E,[_|L]):-member(E, L).
delel(_, [], []).
delel(E, [H|L], Listout):-H==E, delel(E, L, Listout).
delel(E, [H|L], [H|Listout]):-delel(E, L, Listout).
add(_, [], []).
add(X, L, [L,X]).
delone(_, [], []).
delone(E, [E|L], L).
delone(E, [H|L], Listout):-H\=E, delone(E, L, [H|Listout]).
member(E,[_|L]):-member(E, L).
delel(_, [], []).
delel(E, [H|L], Listout):-H==E, delel(E, L, Listout).
delel(E, [H|L], [H|Listout]):-delel(E, L, Listout).
add(_, [], []).
add(X, L, [L,X]).
delone(_, [], []).
delone(E, [E|L], L).
delone(E, [H|L], Listout):-H\=E, delone(E, L, [H|Listout]).
Соседние файлы в папке Простейшие функции на прологе.