double-pow-5-bits ( n -- m )

Vocabulary

ryu.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: math ryu.data ;

IN: ryu.private

: double-pow-5-bits ( n -- m )
    [ 1 ] [
        DOUBLE_LOG2_5_NUMERATOR * DOUBLE_LOG2_5_DENOMINATOR +
        1 - DOUBLE_LOG2_5_DENOMINATOR /i
    ] if-zero ; inline