Заданный элемент встречается в некотором списке один единственный раз (является уникальным) - Prolog
Формулировка задачи:
Напишите правило, которое проверяет, если заданный элемент встречается в некотором списке один единственный раз (является уникальным)
Решение задачи: «Заданный элемент встречается в некотором списке один единственный раз (является уникальным)»
textual
Листинг программы
uniq1(X, L) :- uniq1(L, X, none), !. uniq1([], _, exist). uniq1([X | T], X, none) :- uniq1(T, X, exist). uniq1([Y | T], X, Flag) :- X \= Y, uniq1(T, X, Flag).