Найти максимальную разницу между соседними элементами

@sami26 · Регистрация: 25.11.2014

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

Найти максимальную разницу между соседними элементами списка

@Catstail · 21.05.2015, 13:34

Prolog

domains
int=integer
intl=int*
 
predicates
search(intl,int,int)
task(intl,int)
 
clauses
search([X1,X2],M,R) :- R=X2-X1, R>M, !.
search([X1,X2],M,M) :- R=X2-X1, R<=M, !.
search([X1,X2|T],M,R) :- Z=X2-X1, Z>M, search([X2|T],Z,R).
search([X1,X2|T],M,R) :- Z=X2-X1, Z<=M, search([X2|T],M,R).
 
task([X1,X2|T],R) :- D=X2-X1, search([X2|T],D,R).

@sami26 0 / 0 / 0 Регистрация: 25.11.2014 Сообщений: 23
		1
	Найти максимальную разницу между соседними элементами 21.05.2015, 11:22. Показов 1367. Ответов 1 Метки нет (Все метки) Найти максимальную разницу между соседними элементами списка 0

	21.05.2015, 13:34

Опции темы