smaller-than-1000000 ( n -- str )

Vocabulary

math.text.french.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: kernel math sequences ;

IN: math.text.french.private

: smaller-than-1000000 ( n -- str )
    1000 /mod [ basic unpluralize "-mille" append ] dip complete
    ;