RosettaCodeData/Task/Arithmetic-geometric-mean/Zkl/arithmetic-geometric-mean-2.zkl
2023-07-01 13:44:08 -04:00

3 lines
148 B
Text

fcn(a=1.0, g=1.0/(2.0).sqrt()){ println(a," ",g," ",a-g);
if(a.closeTo(g,1.0e-15)) return(a) else return(self.fcn((a+g)/2.0, (a*g).sqrt()));
}()