Averages/Root mean square: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m Automated syntax highlighting fixup (second round - minor fixes) |
Thundergnat (talk | contribs) m fix markup |
||
Line 689: | Line 689: | ||
=={{header|Emacs Lisp}}== |
=={{header|Emacs Lisp}}== |
||
< |
<syntaxhighlight lang="lisp">(defun rms (nums) |
||
(sqrt (/ (apply '+ (mapcar (lambda (x) (* x x)) nums)) |
(sqrt (/ (apply '+ (mapcar (lambda (x) (* x x)) nums)) |
||
(float (length nums))))) |
(float (length nums))))) |