RosettaCodeData/Task/Averages-Arithmetic-mean/Emacs-Lisp/averages-arithmetic-mean-1.l
2015-11-18 06:14:39 +00:00

3 lines
85 B
Common Lisp

(defun mean (lst)
(/ (float (apply '+ lst)) (length lst)))
(mean '(1 2 3 4))