RosettaCodeData/Task/Averages-Arithmetic-mean/Prolog/averages-arithmetic-mean.pro

5 lines
96 B
Prolog
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
mean(List, Mean) :-
length(List, Length),
sumlist(List, Sum),
Mean is Sum / Length.