Среднее арифметическое - Lisp
Формулировка задачи:
вычислить среднее арифметическое чисел из простого списка чисел
Решение задачи: «Среднее арифметическое»
textual
Листинг программы
(defun average-w (w) (when w (float (/ (reduce #'+ w) (length w))))) > (average-w '(1 2 3 4 5)) 3.0