RosettaCodeData/Task/Arithmetic-geometric-mean/Sidef/arithmetic-geometric-mean.sidef
2017-09-25 22:28:19 +02:00

9 lines
166 B
Text

func agm(a, g) {
loop {
var (a1, g1) = ((a+g)/2, sqrt(a*g))
[a1,g1] == [a,g] && return a
(a, g) = (a1, g1)
}
}
say agm(1, 1/sqrt(2))