decompose ( n -- str )

Vocabulary

math.text.french.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: kernel math ;

IN: math.text.french.private

: decompose ( n -- str )
    1000000 /mod [ over-1000000 ] dip dup 0 >
    [ basic space-append ] [ drop ] if ;