Удаление 3-его элемента с конца в списке - Prolog

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

Написать предикат del(X,Y), где X - исходный список, Y - список из X, в котором отсутствует 3-ий элемент с конца, если в списке более трех элементов, иначе неудача. например если X[1,2,3,4,5,6], то Y[1,2,3,5,6].

Решение задачи: «Удаление 3-его элемента с конца в списке»

textual
                            Листинг программы 
                        

                            domains
int=integer
intl=int*
 
predicates
 
len(intl,int)
task(intl,intl)
 
clauses
 
len([],0).
len([_|T],N) :- len(T,N1), N=N1+1. 
 
task(X,_) :- len(X,N), N<3, fail.
task([_,Y,Z],[Y,Z]).
task([H|T],[H|R]) :- task(T,R).
                        

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

9 голосов , оценка 3.333 из 5

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