format-fast-scientific? ( x digits -- x' digits ? )

Vocabulary

formatting.private

Inputs

x	an object
digits	an object

Outputs

x'	an object
digits	an object
?	an object

Definition

USING: kernel math math.functions ;

IN: formatting.private

: format-fast-scientific? ( x digits -- x' digits ? )
    over float?
    [ t ] [
        2dup
        [ [ t ] [ abs integer-log10 abs 308 < ] if-zero ]
        [ 15 < ] bi* and [ [ [ >float ] dip ] when ] keep
    ] if ;