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/Phix/arithmetic-geometric-mean.phix
+++ b/Task/Arithmetic-geometric-mean/Phix/arithmetic-geometric-mean.phix
@ -0,0 +1,8 @@
+function agm(atom a, atom g, atom tolerance=1.0e-15)
+    while abs(a-g)>tolerance do
+        {a,g} = {(a + g)/2,sqrt(a*g)}
+        printf(1,"%0.15g\n",a)
+    end while
+    return a
+end function
+?agm(1,1/sqrt(2))   -- (rounds to 10 d.p.)