scale-numerator ( num den -- epsilon? num' scale )

Vocabulary

math.integers.private

Inputs

num	an object
den	an object

Outputs

epsilon?	an object
num'	an object
scale	an object

Definition

USING: kernel math ;

IN: math.integers.private

: scale-numerator ( num den -- epsilon? num' scale )
    over [ log2 ] bi@ -
    [ 54 + [ (epsilon?) ] [ shift ] 2bi ] keep ; inline