format-scientific-exponent ( rounded-up? log10x -- string )

Vocabulary

formatting.private

Inputs

rounded-up?	an object
log10x	an object

Outputs

string

an object

Definition

USING: kernel math math.parser sequences ;

IN: formatting.private

: format-scientific-exponent
    ( rounded-up? log10x -- string )
    swap [ 1 + ] when number>string 2 48 pad-head
    dup 45 swap index "e" "e+" ? prepend ;