RosettaCodeData/Task/Arithmetic-geometric-mean/Dc/arithmetic-geometric-mean.dc
2023-09-01 09:35:06 -07:00

2 lines
72 B
Text

>>> 200 k ? sbsa [lalb +2/ lalb *vsb dsa lb - 0!=:]ds:xlap
?> 1 1 2 v /