RosettaCodeData/Task/Arithmetic-geometric-mean/APL/arithmetic-geometric-mean.apl

3 lines
77 B
APL
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
agd{(-)<10*¯8:((+)÷2)(×)*÷2}
1 agd ÷2*÷2