RosettaCodeData/Task/Arithmetic-geometric-mean/Racket/arithmetic-geometric-mean-2.rkt
2013-04-10 14:58:50 -07:00

4 lines
89 B
Racket

#lang racket
(require math/bigfloat)
(bf-precision 200)
(bfagm 1.bf (bf/ (bfsqrt 2.bf)))