Реализовать предикат avg без использования предикатов сумма и length - Prolog

Узнай цену своей работы

Формулировка задачи:

День добрый) прошу помощи!!!! сама не особо разбираюсь в Prologе, но очень нужно решить задание... Искала по нету, но конкретного решения не нашла(((( ЗАДАНИЕ: реализовать предикат avg без использования предикатов сумма и length Очень прошу помочь)

Решение задачи: «Реализовать предикат avg без использования предикатов сумма и length»

textual
Листинг программы
domains
reall=real*
 
predicates
avg_(reall,real,real,real)
avg(reall,real)
 
clauses
avg_([],N,S,R) :- R=S/N.
avg_([H|T],N,S,R) :- N1=N+1, S1=S+H, avg_(T,N1,S1,R). 
 
avg(X,A) :- avg_(X,0,0,A).

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы