Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 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)))