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

Vocabulary

math.integers.private

Inputs

num	an object
den	an object

Outputs

epsilon?	an object
num'	an object
den'	an object
scale	an object

Definition

USING: kernel math ;

IN: math.integers.private

: pre-scale ( num den -- epsilon? num' den' scale )
    scale-denonimator [ [ scale-numerator ] keep swap ] dip
    swap - ; inline