Cumulative standard deviation: Difference between revisions

Content deleted Content added
m perhaps it's better (faster) to exponentiate to integers
REDUCE works with arbitrary list lengths.
Line 112: Line 112:


<lang lisp>(defun arithmetic-average (samples)
<lang lisp>(defun arithmetic-average (samples)
(/ (apply #'+ samples)
(/ (reduce #'+ samples)
(length samples)))
(length samples)))