Módulo:NumberSpell

-- Este módulo converte um número para sua forma escrita em Português.
-- Por exemplo, "2" torna-se "dois", e "79" torna-se "setenta e nove".

local getArgs = require('Módulo: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 specials = {
	[10] = 'dez',
	[11] = 'onze',
	[12] = 'doze',
	[13] = 'treze',
	[14] = 'catorze',
	[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 = tonumber(args[1])
	local success, result = pcall(p._main, num)
	if success then
		return result
	else
		return string.format('<strong class="error">Erro: %s</strong>', result) -- "result" é a mensagem de erro.
	end
	return p._main(num)
end

function p._main(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
	-- Verifica se há números de 0 a 9.
	local onesVal = ones[num]
	if onesVal then
		return onesVal
	end
	-- Verifica se há números especiais.
	local specialVal = specials[num]
	if specialVal then
		return specialVal
	end
	-- Constrói o número de sua regra de formato.
	onesVal = ones[num % 10]
	if not onesVal then
		error('Erro de análise de entrada inesperado ' .. tostring(num))
	end
	for i, t in ipairs(formatRules) do
		if num >= t.num then
			return string.format(t.rule, onesVal)
		end
	end
	error('Nenhuma regra de formato encontrada para a entrada ' .. tostring(num))
end

return p