Data update

Task/Arithmetic-geometric-mean/EasyLang/arithmetic-geometric-mean.easy

@@ -0,0 +1,11 @@
+func agm a g .
+   repeat
+      a0 = a
+      a = (a0 + g) / 2
+      g = sqrt (a0 * g)
+      until abs (a0 - a) < abs (a) * 1e-15
+   .
+   return a
+.
+numfmt 16 0
+print agm 1 sqrt 0.5

Task/Arithmetic-geometric-mean/Raku/arithmetic-geometric-mean-3.raku

@@ -0,0 +1,6 @@
+sub agm {
+  ($^z, {(.re+.im)/2 + (.re*.im).sqrt*1i} ... * ≅ *)
+  .tail.re
+}
+
+say agm 1 + 1i/2.sqrt