aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Arithmetic-geometric-mean/FutureBasic/arithmetic-geometric-mean.basic Normal file
View file

@ -0,0 +1,12 @@
double local fn agm( a as double, g as double )
double ta
do
ta = a
a = (a + g) / 2
g = sqr(ta * g)
until ( a == ta )
end fn = a
print fn agm( 1, 1/sqr(2) )
HandleEvents