6 lines
154 B
Common Lisp
6 lines
154 B
Common Lisp
(defun rms (nums)
|
|
(setq nums (mapcar 'float nums))
|
|
(sqrt (/ (apply '+ (cl-map 'list '* nums nums))
|
|
(length nums))))
|
|
|
|
(rms (number-sequence 1 10))
|