Módulo:NumberSpell

-- Este módulo converte um número em sua forma escrita em português.
-- Por exemplo, "2" vira "dois" (ou "duas"), e "79" vira "setenta e nove".

local getArgs = require('Module:Arguments').getArgs

local p = {}

local max = 100 -- O número máximo que pode ser analisado.

local ones = {
    [0] = 'zero',
    [1] = 'um',
    [2] = 'dois',
    [3] = 'três',
    [4] = 'quatro',
    [5] = 'cinco',
    [6] = 'seis',
    [7] = 'sete',
    [8] = 'oito',
    [9] = 'nove'
}

local ones_fem = {
    [1] = 'uma',
    [2] = 'duas'
}

local specials = {
    [10] = 'dez',
    [11] = 'onze',
    [12] = 'doze',
    [13] = 'treze',
    [14] = 'quatorze',
    [15] = 'quinze',
    [16] = 'dezesseis',
    [17] = 'dezessete',
    [18] = 'dezoito',
    [19] = 'dezenove',
    [20] = 'vinte',
    [30] = 'trinta',
    [40] = 'quarenta',
    [50] = 'cinquenta',
    [60] = 'sessenta',
    [70] = 'setenta',
    [80] = 'oitenta',
    [90] = 'noventa',
    [100] = 'cem'
}

local formatRules = {
    {num = 90, rule = 'noventa e %s'},
    {num = 80, rule = 'oitenta e %s'},
    {num = 70, rule = 'setenta e %s'},
    {num = 60, rule = 'sessenta e %s'},
    {num = 50, rule = 'cinquenta e %s'},
    {num = 40, rule = 'quarenta e %s'},
    {num = 30, rule = 'trinta e %s'},
    {num = 20, rule = 'vinte e %s'}
}

function p.main(frame)
    local args = getArgs(frame)
    local num = args[1]
    local fem = args.feminino or args.fem
    local success, result = pcall(p._main, num, fem)
    if success then
        return result
    else
        return string.format('<strong class="error">Erro: %s</strong>', result)
    end
end

function p._main(num, fem)
    num = tonumber(num)
    if type(num) ~= 'number' or math.floor(num) ~= num or num < 0 or num > max then
        error('a entrada deve ser um número inteiro entre 0 e ' .. tostring(max), 2)
    end

    local isFem = (fem == true or fem == 'sim' or fem == 'yes')

    -- Verificar números de 0 a 9 (trata o feminino se aplicável)
    if ones[num] then
        if isFem and ones_fem[num] then
            return ones_fem[num]
        end
        return ones[num]
    end

    -- Verificar números especiais (10 a 20, dezenas exatas e 100)
    local specialVal = specials[num]
    if specialVal then
        return specialVal
    end

    -- Construir o número composto (ex: 21 -> "vinte e um" ou "vinte e uma")
    local lastDigit = num % 10
    local onesVal = (isFem and ones_fem[lastDigit]) or ones[lastDigit]

    if not onesVal then
        error('Erro inesperado ao analisar a entrada ' .. tostring(num))
    end

    for _, t in ipairs(formatRules) do
        if num >= t.num then
            return string.format(t.rule, onesVal)
        end
    end

    error('Nenhuma regra de formatação encontrada para a entrada ' .. tostring(num))
end

return p
Módulo:NumberSpell

Uso

Exemplos
