exponential-format ( neg? f-str f-len e -- sbuf )

Vocabulary

math.parser.private

Inputs

neg?	an object
f-str	an object
f-len	an object
e	an object

Outputs

sbuf

an object

Definition

USING: kernel math sbufs sequences ;

IN: math.parser.private

: exponential-format ( neg? f-str f-len e -- sbuf )
    + 1 - [ 24 <sbuf> ] 3dip
    [ ?minus ] [
        unclip-slice pick push
        [ 46 pick push append! ] unless-empty
    ] [ ?exponent ] tri* ; inline