RosettaCodeData/Task/Pi/Racket/pi.rkt

5 lines
101 B
Racket

#lang racket
(require math/bigfloat)
(bf-precision (exact-floor (/ (* 200 (log 10)) (log 2))))
pi.bf