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