double. ( double -- )

Vocabulary

math.floating-point

Inputs

double

an object

Outputs

None

Definition

USING: io kernel math math.parser sequences ;

IN: math.floating-point

: double. ( double -- )
    double>bits
    [ (double-sign) >bin print ]
    [ (double-exponent-bits) >bin 11 48 pad-head bl print ] [
        (double-mantissa-bits) >bin 52 48 pad-head 12
        [ bl ] times print
    ] tri ;