stats

stats.el

(let* ((values '(11152 6423 8383 7466 6759 7249 6951 8793 7949 6840 7209 8022 11493 11331 6787 5616 9175 9528 7883 7210 10142))
             (sum (reduce '+ values))
             (avg (/ sum (length values)))
             (mini (apply 'min values))
             (maxi (apply 'max values))
             (dev (reduce '+ (mapcar '(lambda (x) (* (- x avg) (- x avg))) values)))
             (std (sqrt (/ dev (length values)))))
         (list sum avg mini maxi dev std))