Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(F#) |
No edit summary |
||
| Line 198: | Line 198: | ||
Console.WriteLine(numbers.Average()); |
Console.WriteLine(numbers.Average()); |
||
}</lang> |
}</lang> |
||
=={{header|Clojure}}== |
|||
<lang clojure> |
|||
(defn mean [sq] |
|||
(let [length (count sq)] |
|||
(if (zero? length) |
|||
0 |
|||
(/ (reduce + sq) length))) |
|||
) |
|||
</lang> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||