5 lines
138 B
Text
5 lines
138 B
Text
(defun mean (v)
|
|
(if (= (vector-length v) 0)
|
|
nil
|
|
(let ((l (vector->list v)))
|
|
(/ (apply + l) (length l)))))
|