Averages/Root mean square: Difference between revisions

=={{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>