Предикат, удаляющий из исходного списка элементы с четными номерами - Prolog
Формулировка задачи:
Помогите с программой пожалуйста.
Создайте предикат, удаляющий из исходного списка элементы с четными номерами
Решение задачи: «Предикат, удаляющий из исходного списка элементы с четными номерами»
textual
Листинг программы
domains int=integer intl=int* predicates del(intl,int,intl) task(intl,intl) clauses del([],_,[]). del([H|T],C,R) :- C=2, H>0, del(T,1,R). del([H|T],C,[H|R]) :- C=1, H>0, del(T,2,R). del([H|T],C,[H|R]) :- H<=0, del(T,C,R). task(X,R) :- del(X,1,R).