RosettaCodeData/Task/Arithmetic-geometric-mean/Racket/arithmetic-geometric-mean-2.rkt
2023-07-01 13:44:08 -04:00

4 lines
89 B
Racket

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