Rosetta Code

Arithmetic-geometric mean: Difference between revisions

Page Discussion

Arithmetic-geometric mean (view source)

Revision as of 18:47, 23 August 2023

65 bytes added ,  8 months ago
Shorter version
imported>Schraf
(Add "dc" version)
imported>Schraf
(Shorter version)
Line 1,289:
 
=={{header|dc}}==
<syntaxhighlight lang="dc">>>> [125k200 k ? sbsa [lalb +2/dsc lalb *vdsbvsb lcsadsa lb - 0!=:]ds:xlap]sm
>>> lmx
?> 1 1 2 v /</syntaxhighlight>
 
Line 1,296 ⟶ 1,295:
<pre>
.8472130847939790866064991234821916364814459103269421850605793726597\
34004834134759723200293994611229942122285625233410963097962665830871\
3400483413475972320029399461122994212228562523341096309793
05969971363598338425117632681428906038970676860161665004828118868
</pre>
 
You can change the precision (125200 by default)
 
=={{header|EchoLisp}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/351466"