units ( -- seq )

Vocabulary

math.text.french.private

Inputs

None

Outputs

seq

an object

Definition

USING: arrays kernel sequences ;

IN: math.text.french.private

IDENTITY-MEMO: units ( -- seq )
    {
        "m"
        "b"
        "tr"
        "quadr"
        "quint"
        "sext"
        "sept"
        "oct"
        "non"
        "déc"
        "unodéc"
        "duodéc"
        "trédéc"
        "quattuordéc"
        "quindéc"
        "sexdéc"
    } [ [ "illion" append ] [ "illiard" append ] bi 2array ] map
    concat "mille" prefix ;