Anonymous user
Cumulative standard deviation: Difference between revisions
m
→{{header|Common Lisp}}
Line 382:
(tmp (mapcar (lambda (x) (sqr (- x mean))) samples)))
(sqrt (/ (reduce #'+ tmp) n))))
(format t "~a" (std-dev '(2 4 4 4 5 5 7 9)))
</lang>
|