scale-mantissas ( D1 D2 -- m1 m2 exp )

Vocabulary

decimals

Inputs

D1	an object
D2	an object

Outputs

m1	an object
m2	an object
exp	an object

Definition

USING: accessors kernel math math.functions ;

IN: decimals

: scale-mantissas ( D1 D2 -- m1 m2 exp )
    [ [ mantissa>> ] bi@ ] [
        [ exponent>> ] bi@ [
            - dup 0 <
            [ neg 10^ * t ] [ 10^ [ * ] curry dip f ] if
        ] [ ? ] 2bi
    ] 2bi ;