Cumulative standard deviation: Difference between revisions
Content added Content deleted
m (eliminate variable used in only one place) |
m (perhaps it's better (faster) to exponentiate to integers) |
||
| Line 120: | Line 120: | ||
(reduce #'+ samples |
(reduce #'+ samples |
||
:key (lambda (x) |
:key (lambda (x) |
||
(expt (- x mean) 2 |
(expt (- x mean) 2))))))) |
||
(defun make-deviator () |
(defun make-deviator () |
||