5 lines
116 B
Text
5 lines
116 B
Text
main =>
|
|
println(agm(1.0, 1/sqrt(2))).
|
|
|
|
agm(A,G) = A, A-G < 1.0e-10 => true.
|
|
agm(A,G) = agm((A+G)/2, sqrt(A*G)).
|