produce-output ( exp sign output -- string )

Vocabulary

ryu.private

Inputs

exp	an object
sign	an object
output	an object

Outputs

string

an object

Definition

USING: combinators.smart kernel math.parser sequences ;

IN: ryu.private

:: produce-output ( exp sign output -- string )
    [
        sign "-" f ?
        output number>string 1 cut-slice dup empty? f "." ?
        swap "e" exp number>string
    ] "" append-outputs-as ; inline