RosettaCodeData/Task/Averages-Arithmetic-mean/Emacs-Lisp/averages-arithmetic-mean-1.el

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