Anonymous user
Averages/Root mean square: Difference between revisions
→{{header|Prolog}}: Adding Prolog
m (Emacs Lisp: Simplify solution, omit cl-lib version for lack of benefit using cl-map) |
(→{{header|Prolog}}: Adding Prolog) |
||
Line 1,600:
{{out}}
<pre>6.204837</pre>
=={{header|Prolog}}==
{{works with|GNU Prolog}}
<lang Prolog>
:- initialization(main).
rms(Xs, Y) :-
sum_of_squares(Xs, 0, Sum),
length(Xs, N),
Y is sqrt(Sum / N).
sum_of_squares([], Sum, Sum).
sum_of_squares([X|Xs], A, Sum) :-
A1 is A + X * X,
sum_of_squares(Xs, A1, Sum).
main :-
bagof(X, between(1, 10, X), Xs),
rms(Xs, Y),
format('The root-mean-square of 1..10 is ~f\n', [Y]).
</lang>
{{out}}
<pre>
The root-mean-square of 1..10 is 6.204837
</pre>
=={{header|PureBasic}}==
|