Anonymous user
Averages/Arithmetic mean: Difference between revisions
added Common Lisp example
(add Haskell example) |
(added Common Lisp example) |
||
Line 33:
3.83333
0.00000
=={{header|Common Lisp}}==
This example uses a recursive sum-list function.
(defun sum-list (list)
(if (list)
(+ (car list) (sum-list (cdr list)))
0))
(defun mean (list)
(/ (sum-list list) (length list)))
=={{header|J}}==
|