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/ACL2/averages-arithmetic-mean.acl2
+++ b/Task/Averages-Arithmetic-mean/ACL2/averages-arithmetic-mean.acl2
@ -0,0 +1,13 @@
+(defun mean-r (xs)
+   (if (endp xs)
+       (mv 0 0)
+       (mv-let (m j)
+               (mean-r (rest xs))
+          (mv (+ (first xs) m) (+ j 1)))))
+
+(defun mean (xs)
+   (if (endp xs)
+       0
+       (mv-let (n d)
+               (mean-r xs)
+          (/ n d))))