Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Averages-Arithmetic-mean/Common-Lisp/averages-arithmetic-mean-1.lisp
+++ b/Task/Averages-Arithmetic-mean/Common-Lisp/averages-arithmetic-mean-1.lisp
@ -0,0 +1,3 @@
+(defun mean (&rest sequence)
+  (when sequence
+    (/ (reduce #'+ sequence) (length sequence))))
--- a/Task/Averages-Arithmetic-mean/Common-Lisp/averages-arithmetic-mean-2.lisp
+++ b/Task/Averages-Arithmetic-mean/Common-Lisp/averages-arithmetic-mean-2.lisp
@ -0,0 +1,4 @@
+(defun mean (list)
+  (when list
+    (/ (loop for i in list sum i)
+       (length list))))