Rosetta Code

Arithmetic-geometric mean: Difference between revisions

Page Discussion

Arithmetic-geometric mean (view source)

Revision as of 21:20, 9 February 2016

7 bytes removed ,  8 years ago
m
→‎{{header|Oforth}}
(Added EchoLisp)
Line 1,198:
=={{header|Oforth}}==
 
<lang Oforth>func: agm { while(dup22dup <>) [ dup22dup + 2 / tor * sqrt ] drop };</lang>
 
Usage :
<lang Oforth>agm(1, 2 sqrt inv) agm</lang>
 
{{out}}
Franck
1,015

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/212198"