Averages/Root mean square: Difference between revisions
Content added Content deleted
m (Emacs Lisp: Simplify solution, omit cl-lib version for lack of benefit using cl-map) |
(→{{header|Prolog}}: Adding Prolog) |
||
Line 1,600: | Line 1,600: | ||
{{out}} |
{{out}} |
||
<pre>6.204837</pre> |
<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}}== |
=={{header|PureBasic}}== |