commas ( n -- str )

Vocabulary

tools.memory.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: grouping kernel math math.parser sequences ;

IN: tools.memory.private

: commas ( n -- str )
    dup 0 <
    [ neg commas "-" prepend ]
    [ number>string reverse 3 group "," join reverse ] if ;