Anonymous user
Arithmetic-geometric mean: Difference between revisions
m
→{{header|Haskell}}
Line 1,002:
-- sufficiently close, as determined by "eq".
agm :: (Floating a) => a -> a -> ((a, a) -> Bool) -> a
agm a g eq = snd
where step (a, g) = ((a + g) / 2, sqrt (a * g))
| |||