Anonymous user
Averages/Root mean square: Difference between revisions
no edit summary
No edit summary |
|||
Line 77:
6.2048368229954285
</pre>
=={{header|Common Lisp}}==
<lang lisp>(defun rms (x)
(sqrt (/ (reduce #'+ (mapcar (lambda (xi) (expt xi 2)) x))
(length x))))
(rms (loop for i from 1 upto 10 collect i))</lang>
=={{header|Factor}}==
| |||