smaller-than-1000 ( n -- str )

Vocabulary

math.text.french.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: kernel math ;

IN: math.text.french.private

: smaller-than-1000 ( n -- str )
    100 /mod [
        "cent" swap dup 1 =
        [ drop ] [ basic swap dash-append ] if
    ] [ [ pluralize ] [ basic dash-append ] if-zero ] bi* ;