Поиск максимального и его замена - простое задание

@EdHaker · Регистрация: 23.09.2015

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

Ввести с клавиатуры список действительных чисел. Получить новый список заменяя аi нулями, если ai является член с максимальным значением, и заменяя аi единицей в противном случае.
Можете подсказать как решить такое задание или хотя бы в каком направление копать? В прологе не шарю совсем.

Добавлено через 22 минуты
Максимальное значение умею находить. Как бы теперь заменять?

Prolog

domains
i=integer
il=i*
 
predicates
nondeterm max_el(il,i)
 
goal
max_el([2,3,-1,34,5,10],M),write(M).
 
clauses
max_el([X],X).
max_el([H|T],R) :- max_el(T,R), H<=R.
max_el([H|T],H) :- max_el(T,R1), H>R1.

@Black Fregat · 19.05.2018, 06:05

Здесь примеры, как делать список на основе другого: Добавить элемент в конец уже существующего списка и вернуть его же

@Ivandur · 19.05.2018, 21:44

Prolog

1
2
3

replace_num([],_,[]).
replace_num([H|T],H,[0|T1]):-replace_num(T,H,T1).
replace_num([_|T],H,[1|T1]):-replace_num(T,H,T1).

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	19.05.2018, 06:05	2
	Здесь примеры, как делать список на основе другого: Добавить элемент в конец уже существующего списка и вернуть его же 1

	19.05.2018, 21:44