Создать новый список из отличных друг от друга элементов исходного списка - 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).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
