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/Arithmetic-geometric-mean/LFE/arithmetic-geometric-mean.lfe
+++ b/Task/Arithmetic-geometric-mean/LFE/arithmetic-geometric-mean.lfe
@ -0,0 +1,15 @@
+(defun agm (a g)
+  (agm a g 1.0e-15))
+
+(defun agm (a g tol)
+  (if (=< (- a g) tol)
+    a
+    (agm (next-a a g)
+         (next-g a g)
+         tol)))
+
+(defun next-a (a g)
+  (/ (+ a g) 2))
+
+(defun next-g (a g)
+  (math:sqrt (* a g)))