Списки, рекурсия

@Sailyk · Регистрация: 12.05.2016

Author24 — интернет-сервис помощи студентам

Задача 1. Определите предикат, удаляющий из списка последний элемент.
Задача 2. Определите предикат, удаляющий из каждый второй элемент.

@Catstail · 13.05.2016, 12:05

Prolog

domains
int=integer
intl=int*
 
predicates
butLast(intl,intl)
delByNum(intl,intl,int,int)
delEven(intl,intl)
 
clauses
butLast([_],[]).
butLast([A|T],[A|R]) :- butLast(T,R).
 
delByNum([],[],_,_).
delByNum([H|T],[H|R],N,P) :- P < N, P1=P+1, delByNum(T,R,N,P1).
delByNum([_|T],R,N,N)     :- delByNum(T,R,N,1).
 
delEven(X,Y) :- delByNum(X,Y,2,1).

@Sailyk 0 / 0 / 0 Регистрация: 12.05.2016 Сообщений: 4
		1
	Списки, рекурсия 12.05.2016, 22:02. Показов 811. Ответов 1 Метки нет (Все метки) Задача 1. Определите предикат, удаляющий из списка последний элемент. Задача 2. Определите предикат, удаляющий из каждый второй элемент. 0

	13.05.2016, 12:05