Data update

Task/Arithmetic-geometric-mean/Gambas/arithmetic-geometric-mean.gambas

@@ -0,0 +1,19 @@
+Public Sub Main()
+
+  Print AGM(1, 1 / Sqr(2))
+
+End
+
+Function AGM(a As Float, g As Float) As Float
+
+  Dim t_a As Float
+
+  Do
+    t_a = (a + g) / 2
+    g = Sqr(a * g)
+    Swap a, t_a
+  Loop Until a = t_a
+
+  Return a
+
+End Function

Task/Arithmetic-geometric-mean/Minimal-BASIC/arithmetic-geometric-mean.basic

@@ -0,0 +1,11 @@
+10 LET A = 1
+20 LET G = 1 / SQR(2)
+30 GOSUB 60
+40 PRINT A
+50 STOP
+60 LET T = A
+70 LET A = (A + G) / 2
+80 LET G = SQR(T * G)
+90 IF A < T THEN 60
+100 RETURN
+110 END

Task/Arithmetic-geometric-mean/Quite-BASIC/arithmetic-geometric-mean.basic

@@ -0,0 +1,10 @@
+10 LET A = 1
+20 LET G = 1 / SQR(2)
+30 GOSUB 100
+40 PRINT A
+50 END
+100 LET T = A
+110 LET A = (A + G) / 2
+120 LET G = SQR(T * G)
+130 IF A < T THEN 100
+140 RETURN

Task/Arithmetic-geometric-mean/Yabasic/arithmetic-geometric-mean.basic

@@ -0,0 +1,14 @@
+print AGM(1, 1 / sqrt(2))
+end
+
+sub AGM(a, g)
+	repeat
+		ta = (a + g) / 2
+		g = sqrt(a * g)
+		x = a
+		a = ta
+		ta = x
+	until a = ta
+
+	return a
+end sub