Averages/Root mean square: Difference between revisions
Content added Content deleted
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))))) |
||