Сравнение четных и нечетных элементов списка

@NadyaPanarina · Регистрация: 10.06.2015

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

Помогите, пожалуйста, с задачей.
Дан список. Убедиться, что элемент, стоящий на четном месте в списке больше, чем стоящие рядом на нечетных местах элементы. Проверить, что количество элементов в списке - нечетно.
Очень нужно решение, буду безмерно благодарна!

@Catstail · 13.06.2015, 11:25

Что-то вроде:

Prolog

domains
int=integer
intl=int*
 
predicates
test(intl)
 
clauses
test([]).  
test([_]).
test([X,Y]) :- X<Y.
test([X,Y,Z|H]) :- Y>X, Y>Z, test([Z|H]).

@NadyaPanarina · 15.06.2015, 23:36 **[ТС]**

Спасибо большое! Т.е. получается, тут все, что нужно было для решения? С прологом совсем все плохо у меня

И не могли бы по строчкам разъяснить, что происходит?

@Catstail · 16.06.2015, 09:03

Prolog

domains
int=integer
intl=int*
 
predicates
test(intl)
 
clauses
test([]).  %% Пустой список удовлетворяет условию
test([_]). %% Список из одного элемента - тоже
test([X,Y]) :- X<Y. %% Список из двух удовлетворяет, если второй эл-т больше первого
test([X,Y,Z|H]) :- Y>X, Y>Z, test([Z|H]). %% список из трех и более эл-тов удовлетворяет, если второй эл-т больше первого и третьего, и кусок списка, начиная с третьего элемента удовлетворяет предикату

@NadyaPanarina · 16.06.2015, 15:23 **[ТС]**

Большое спасибо за помощь! Теперь все понятно.

@NadyaPanarina 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 4
		1
	Сравнение четных и нечетных элементов списка 10.06.2015, 20:29. Показов 1528. Ответов 4 Метки нет (Все метки) Помогите, пожалуйста, с задачей. Дан список. Убедиться, что элемент, стоящий на четном месте в списке больше, чем стоящие рядом на нечетных местах элементы. Проверить, что количество элементов в списке - нечетно. Очень нужно решение, буду безмерно благодарна! 0

@NadyaPanarina 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 4
	15.06.2015, 23:36 [ТС]	3
	Спасибо большое! Т.е. получается, тут все, что нужно было для решения? С прологом совсем все плохо у меня И не могли бы по строчкам разъяснить, что происходит? 0

@NadyaPanarina 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 4
	16.06.2015, 15:23 [ТС]	5
	Большое спасибо за помощь! Теперь все понятно. 0