over-1000000 ( n -- str )

Vocabulary

math.text.french.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: math math.text.utils sequences splitting ;

IN: math.text.french.private

: over-1000000 ( n -- str )
    3 digit-groups [ 1 + units nth n-units ] map-index
    sift reverse join-words ;