format-money ( dollars cents -- string )

Vocabulary

money

Inputs

dollars	an object
cents	an object

Outputs

string

an object

Definition

USING: grouping kernel math.parser sequences ;

IN: money

: format-money ( dollars cents -- string )
    [ number>string ] bi@
    [ <reversed> 3 group "," join <reversed> ] [ 2 48 pad-head ]
    bi* "." glue ;