RosettaCodeData/Task/Arithmetic-geometric-mean/PicoLisp/arithmetic-geometric-mean.l

(scl 80)

(de agm (A G)
   (do 7
      (prog1 (/ (+ A G) 2)
         (setq G (sqrt A G)  A @) ) ) )

(round
   (agm 1.0 (*/ 1.0 1.0 (sqrt 2.0 1.0)))
   70 )
Add all the A tasks 2013-04-10 14:58:50 -07:00			`(scl 80)`

			`(de agm (A G)`
			`(do 7`
			`(prog1 (/ (+ A G) 2)`
Time for an 2014 update… 2014-01-17 05:32:22 +00:00			`(setq G (sqrt A G) A @) ) ) )`
Add all the A tasks 2013-04-10 14:58:50 -07:00
			`(round`
Time for an 2014 update… 2014-01-17 05:32:22 +00:00			`(agm 1.0 (*/ 1.0 1.0 (sqrt 2.0 1.0)))`
Add all the A tasks 2013-04-10 14:58:50 -07:00			`70 )`