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/EchoLisp/arithmetic-geometric-mean.echolisp
+++ b/Task/Arithmetic-geometric-mean/EchoLisp/arithmetic-geometric-mean.echolisp
@ -0,0 +1,14 @@
+(lib 'math)
+
+(define (agm a g)
+    (if (~= a g) a
+       (agm (// (+ a g ) 2) (sqrt (* a g)))))
+
+(math-precision)
+    → 0.000001 ;; default
+(agm 1 (/ 1 (sqrt 2)))
+    → 0.8472130848351929
+(math-precision 1.e-15)
+    → 1e-15
+(agm 1 (/ 1 (sqrt 2)))
+    → 0.8472130847939792