double>ratio ( double -- a/b )

Vocabulary

math.floating-point

Inputs

double

an object

Outputs

a/b

an object

Definition

USING: kernel math math.functions ;

IN: math.floating-point

: double>ratio ( double -- a/b )
    check-special double>bits
    [ (double-sign) zero? 1 -1 ? ]
    [ (double-mantissa-bits) 52 2^ / ]
    [ (double-exponent-bits) ] tri [ 1 ] [ [ 1 + ] dip ] if-zero
    1023 - 2 swap ^ * * ;