Averages/Arithmetic mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 849: / Line 849: @@
 <lang lisp>(defun mean (&rest sequence)
-  (if (null sequence)
+  (when sequence
+    (/ (reduce #'+ sequence) (length sequence))))</lang>
-      nil
-      (/ (reduce #'+ sequence) (length sequence))))</lang>
 '''With Loop'''
 <lang lisp>(defun mean (list)
-  (unless (null list)
+  (when list
-    (/ (loop for i in list sum i)
+   (/ (loop for i in list sum i)
-       (length list))))</lang>
+      (length list))))</lang>
 =={{header|Crystal}}==