RosettaCodeData/Task/Arithmetic-geometric-mean/Groovy/arithmetic-geometric-mean-1.groovy
2015-02-20 00:35:01 -05:00

5 lines
151 B
Groovy

double agm (double a, double g) {
double an = a, gn = g
while ((an-gn).abs() >= 10.0**-14) { (an, gn) = [(an+gn)*0.5, (an*gn)**0.5] }
an
}