Заменить элементы списка на число 1, если исходное число нечетное, и на 0 в противном случае.

@Александр_111 · Регистрация: 26.05.2011

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

Всем доброго времени суток. Помогите пожалуйста с решением задачи! :

Дан список, элементы которого натуральные числа.Заменить их на число 1, если исходное число нечетное, и на 0 в противном случае.

Добавлено через 1 час 44 минуты
на одном из форумов подсказали следующее:
z([],[]).
z([H|T],[C|L]):-C is H mod 2, z(T,L).

но при запуске программы с этим текстом возникает ошибка "3 Illegal keyword"

@Грымзик · 05.05.2012, 20:27

Ну Вы похоже совсем конкретно про турбо пролог не читали.

Prolog

domains
l=integer*
predicates
z(l,l).
clauses
z([],[]).
z([H|T],[C|L]):-C=H mod 2, z(T,L).
goal
z([1,2,3,4,5],A),write(A).

@Александр_111 1 / 1 / 2 Регистрация: 26.05.2011 Сообщений: 47
		1
	Заменить элементы списка на число 1, если исходное число нечетное, и на 0 в противном случае. 05.05.2012, 14:10. Показов 1416. Ответов 1 Метки нет (Все метки) Всем доброго времени суток. Помогите пожалуйста с решением задачи! : Дан список, элементы которого натуральные числа.Заменить их на число 1, если исходное число нечетное, и на 0 в противном случае. Добавлено через 1 час 44 минуты на одном из форумов подсказали следующее: z([],[]). z([H\|T],[C\|L]):-C is H mod 2, z(T,L). но при запуске программы с этим текстом возникает ошибка "3 Illegal keyword" 0

	05.05.2012, 20:27