lower-pi ( x -- y )

Vocabulary

math.primes.private

Inputs

x

an object

Outputs

y

an object

Definition

USING: kernel math math.functions ;

IN: math.primes.private

: lower-pi ( x -- y )
    dup log [ / ] [ 0.992 swap / 1 + ] bi * floor ;