Anonymous user
Averages/Root mean square: Difference between revisions
→{{header|Emacs Lisp}}: use clean cl- namespace for common lisp stuff
(add emacs lisp) |
(→{{header|Emacs Lisp}}: use clean cl- namespace for common lisp stuff) |
||
Line 370:
(defun rms (nums)
(setq nums (mapcar 'float nums))
(sqrt (/ (apply '+ (cl-map 'list '* nums nums))
(length nums))))
| |||