Реализовать предикат 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).