Создать новый список из отличных друг от друга элементов исходного списка - Prolog

Формулировка задачи:

Помогите, плиз. В чём может быть ошибка?

domains
n=integer*
predicates
 
  zad1(n,n)
  remove(integer,n,n)
  clauses
 
  remove(_,[],[]) :-!.
  remove(X,[X|T],W):- remove(X,T,W),!.
  remove(X,[Y|T],[Y|W]):- remove(X,T,W).
  
  zad1([],[]):-!.
  zad1([Z|Z1],B):- remove(Z,A,Y), zad1(Y,Y1).   
 
goal
  readterm(n,A), zad1(A,B), write(B).

Решение задачи: «Создать новый список из отличных друг от друга элементов исходного списка»

textual
                            Листинг программы 
                        
                            zad1([],[]):-!.
zad1([Z|Z1],[Z|B]):- remove(Z,Z1,Y), zad1(Y,B).

Оцени полезность:

11 голосов , оценка 4.364 из 5

Похожие ответы