Среднее арифметическое списка

@Doc · Регистрация: 05.05.2014

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

Помогите пожалуйста!!!

Напишите предикат, находящий среднее арифметическое списка

@Catstail · 25.12.2015, 18:56

Prolog

domains
rl=real*
 
predicates
suml(rl,real)
numl(rl,real)
avgl(rl,real)
 
clauses
suml([],0.0).
suml([H|T],S) :- suml(T,S1), S=S1+H.
 
numl([],0.0).
numl([_|T],S) :- numl(T,S1), S=S1+1.0.
 
avgl(X,A) :- suml(X,S), numl(X,N), A=S/N.

@Doc 1 / 1 / 0 Регистрация: 05.05.2014 Сообщений: 106
		1
	Среднее арифметическое списка 24.12.2015, 18:55. Показов 1557. Ответов 1 Метки нет (Все метки) Помогите пожалуйста!!! Напишите предикат, находящий среднее арифметическое списка 0

	25.12.2015, 18:56