Arithmetic-geometric mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,198: / Line 1,198: @@
 =={{header|Oforth}}==
-<lang Oforth>func: agm { while(dup2 <>) [ dup2 + 2 / tor * sqrt ] drop }</lang>
+<lang Oforth>: agm  while(2dup <>) [ 2dup + 2 / tor * sqrt ] drop ;</lang>
 Usage :
-<lang Oforth>agm(1, 2 sqrt inv)</lang>
+<lang Oforth>1 2 sqrt inv agm</lang>
 {{out}}