Moodul:NumberSpell

Mooduli dokumentatsioon

Selle mooduli dokumentatsioon on liidetud lehelt Moodul:NumberSpell/doc (redigeeri | ajalugu).

See moodul võtab arvu ja teisendab selle sõnaks. Näiteks "2" saab "kaks" ja "79" saab "seitsekümmend üheksa". Arv peab olema 0 ja 100 vahel.

Kasutus

{{#invoke:NumberSpell|main|number}}

Näited

• {{#invoke:NumberSpell|main|8}} → kaheksa
• {{#invoke:NumberSpell|main|56}} → viiskümmend kuus
• {{#invoke:NumberSpell|main|101}} →

-- Moodul konverdib numbrid tekstiks.
-- Näiteks "2" saab "kaks" ja "79" saab "seitsekümmend üheksa".

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

local p = {}

local max = 100 -- Maksimaalne parsitav arv.

local ones = {
	[0] = 'null',
	[1] = 'üks',
	[2] = 'kaks',
	[3] = 'kolm',
	[4] = 'neli',
	[5] = 'viis',
	[6] = 'kuus',
	[7] = 'seitse',
	[8] = 'kaheksa',
	[9] = 'üheksa'
}

local specials = {
	[10] = 'kümme',
	[100] = 'sada'
}

local formatRules = {
	{num = 90, rule = 'üheksakümmend %s'},
	{num = 80, rule = 'kaheksakümmend %s'},
	{num = 70, rule = 'seitsekümmend %s'},
	{num = 60, rule = 'kuuskümmend %s'},
	{num = 50, rule = 'viiskümmend %s'},
	{num = 40, rule = 'nelikümmend %s'},
	{num = 30, rule = 'kolmkümmend %s'},
	{num = 20, rule = 'kakskümmend %s'},
	{num = 10, rule = '%teist'}
}

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">Viga: %s</strong>', result) -- "result" on veateade.
	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('sisend peab olema vahemikus 0 kuni ' .. tostring(max), 2)
	end
	-- kontrolli numbrit 0 kuni 9.
	local onesVal = ones[num]
	if onesVal then
		return onesVal
	end
	-- kontrolli erandeid.
	local specialVal = specials[num]
	if specialVal then
		return specialVal
	end
	-- loo arv reegli järgi.
	onesVal = ones[num % 10]
	if not onesVal then
		error('Tundmatu viga parsimisel ' .. tostring(num))
	end
	for i, t in ipairs(formatRules) do
		if num >= t.num then
			return string.format(t.rule, onesVal)
		end
	end
	error('Sisendreeglit ei leitud ' .. tostring(num))
end

return p