RosettaCodeData/Task/Arithmetic-geometric-mean/J/arithmetic-geometric-mean-1.j

mean=: +/ % #
   (mean , */ %:~ #)^:_] 1,%%:2
0.8472130847939792 0.8472130847939791