local export = {numbers = {}}
local numbers = export.numbers
export.additional_number_types = {
{key = "colloquial_counting_form", after = "cardinal", display = "เชิงการนับภาษาปาก"},
{key = "colloquial_ordinal", after = "ordinal", display = "เชิงอันดับที่ภาษาปาก"},
{key = "digit_name", after = "ordinal_abbr", display = "ชื่อเลขโดด"},
}
numbers[0] = {
cardinal = "nolla",
ordinal = "nollas",
colloquial_counting_form = "nol",
digit_name = "nolla",
}
numbers[1] = {
cardinal = "yksi",
ordinal = "ensimmäinen",
adverbial = {"kerran", "yhdesti<q:คณิตศาสตร์>"},
multiplier = "yksinkertainen",
distributive = "yksittäin",
colloquial_counting_form = "yy",
colloquial_ordinal = {"eka", "ensin"},
digit_name = "ykkönen",
}
numbers[2] = {
cardinal = "kaksi",
ordinal = "toinen",
adverbial = "kahdesti",
fractional = "puolikas",
multiplier = "kaksinkertainen",
distributive = "kaksittain",
colloquial_counting_form = "kaa",
colloquial_ordinal = "toka",
digit_name = "kakkonen",
}
numbers[3] = {
cardinal = "kolme",
ordinal = "kolmas",
adverbial = {"kolmesti", "kolmasti"},
fractional = {"kolmasosa", "kolmannes"},
multiplier = "kolminkertainen",
distributive = "kolmittain",
colloquial_counting_form = {"koo", "kol"},
colloquial_ordinal = "kolkki<qq:ภาษาถิ่น>",
digit_name = "kolmonen",
}
numbers[4] = {
cardinal = "neljä",
ordinal = "neljäs",
adverbial = "neljästi",
fractional = {"neljäsosa", "neljännes"},
multiplier = "nelinkertainen",
distributive = "nelittäin",
colloquial_counting_form = {"nee", "nel"},
colloquial_ordinal = "nelkki<qq:ภาษาถิ่น>",
digit_name = "nelonen",
}
numbers[5] = {
cardinal = "viisi",
ordinal = "viides",
adverbial = "viidesti",
fractional = {"viidesosa", "viidennes"},
multiplier = "viisinkertainen",
colloquial_counting_form = "vii",
colloquial_ordinal = "viikki<qq:ภาษาถิ่น>",
digit_name = "viitonen",
}
numbers[6] = {
cardinal = "kuusi",
ordinal = "kuudes",
adverbial = "kuudesti",
fractional = {"kuudesosa", "kuudennes"},
multiplier = "kuusinkertainen",
colloquial_counting_form = "kuu",
colloquial_ordinal = "kuukki<qq:ภาษาถิ่น>",
digit_name = "kuutonen",
}
numbers[7] = {
cardinal = "seitsemän",
ordinal = "seitsemäs",
adverbial = "seitsemästi",
fractional = {"seitsemäsosa", "seitsemännes"},
multiplier = "seitsenkertainen",
colloquial_counting_form = "see",
colloquial_ordinal = {"seikki<qq:ภาษาถิ่น>", "seiska"},
digit_name = {"seiska<qq:ไม่ทางการ>", "seitsikko", "seitsemäinen"},
}
numbers[8] = {
cardinal = "kahdeksan",
ordinal = "kahdeksas",
adverbial = "kahdeksasti",
fractional = {"kahdeksasosa", "kahdeksannes"},
multiplier = "kahdeksankertainen",
colloquial_counting_form = "kasi",
colloquial_ordinal = "kakki<qq:ภาษาถิ่น>",
digit_name = {"kahdeksikko", "kahdeksainen"},
}
numbers[9] = {
cardinal = "yhdeksän",
ordinal = "yhdeksäs",
adverbial = "yhdeksästi",
fractional = {"yhdeksäsosa", "yhdeksännes"},
multiplier = "yhdeksänkertainen",
colloquial_counting_form = "ysi",
colloquial_ordinal = "ykki<qq:ภาษาถิ่น>",
digit_name = {"yhdeksikkö", "yhdeksäinen"},
}
numbers[10] = {
cardinal = "kymmenen",
ordinal = "kymmenes",
adverbial = "kymmenesti",
fractional = {"kymmenesosa", "kymmenennes"},
multiplier = "kymmenkertainen",
colloquial_counting_form = {"kymppi", "kybä"},
}
-- Cardinals and ordinals for 11-19 are set down below.
numbers[11] = {
colloquial_counting_form = "yytoo",
}
numbers[12] = {
colloquial_counting_form = "kaatoo",
}
numbers[13] = {
colloquial_counting_form = "kootoo",
}
numbers[14] = {
colloquial_counting_form = "neetoo",
}
numbers[15] = {
colloquial_counting_form = "viitoo",
}
numbers[16] = {
colloquial_counting_form = "kuutoo",
}
numbers[17] = {
colloquial_counting_form = "seetoo",
}
numbers[18] = {
colloquial_counting_form = "kasitoo",
}
numbers[19] = {
colloquial_counting_form = "ysitoo",
}
numbers[20] = {
colloquial_counting_form = "kakskyt",
}
numbers[30] = {
colloquial_counting_form = "kolkyt",
}
numbers[40] = {
colloquial_counting_form = "nelkyt",
}
numbers[50] = {
colloquial_counting_form = "viiskyt",
}
numbers[60] = {
colloquial_counting_form = "kuuskyt",
}
numbers[70] = {
colloquial_counting_form = {"seiskyt", "seitkyt"},
}
numbers[80] = {
colloquial_counting_form = "kasikyt",
}
numbers[90] = {
colloquial_counting_form = "ysikyt",
}
numbers[100] = {
cardinal = "sata",
ordinal = "sadas",
fractional = {"sadasosa", "sadannes"},
}
numbers[1000] = {
cardinal = "tuhat",
ordinal = "tuhannes",
fractional = {"tuhannesosa", "tuhannennes"},
}
numbers[1000000] = {
cardinal = "miljoona",
ordinal = "miljoonas",
fractional = {"miljoonasosa", "miljoonannes"},
}
local function power_of(n)
return "1" .. string.rep("0", n)
end
export.numbers[power_of(9)] = {
cardinal = "miljardi",
ordinal = "miljardis",
}
export.numbers[power_of(12)] = {
cardinal = "biljoona",
ordinal = "biljoonas",
}
export.numbers[power_of(15)] = {
cardinal = "biljardi",
ordinal = "biljardis",
}
export.numbers[power_of(18)] = {
cardinal = "triljoona",
ordinal = "triljoonas",
}
export.numbers[power_of(21)] = {
cardinal = "triljardi",
ordinal = "triljardis",
}
export.numbers[power_of(24)] = {
cardinal = "kvadriljoona",
ordinal = "kvadriljoonas",
}
export.numbers[power_of(30)] = {
cardinal = "kvintiljoona",
ordinal = "kvintiljoonas",
}
export.numbers[power_of(36)] = {
cardinal = "sekstiljoona",
ordinal = "sekstiljoonas",
}
export.numbers[power_of(42)] = {
cardinal = "septiljoona",
ordinal = "septiljoonas",
}
export.numbers[power_of(48)] = {
cardinal = "oktiljoona",
ordinal = "oktiljoonas",
}
local alt_ordinal = { "yhdes", "kahdes" }
local nth_decades = {
"toista", "kolmatta", "neljättä", "viidettä", "kuudetta",
"seitsemättä", "kahdeksatta", "yhdeksättä", "kymmenettä"
}
local partitives = {
[10] = "kymmentä",
[100] = "sataa",
[1000] = "tuhatta",
[1000000] = "miljoonaa",
[1000000000] = "miljardia",
[1000000000000] = "biljoonaa"
}
local MAXIMUM_ONES = 121
local MAXIMUM_FACTORS_MNZ = MAXIMUM_ONES
local MAXIMUM_FACTORS_MT1 = 100000000
local MAXIMUM_FACTORS_ANY = 1000000000
local function set_number(number, cardinal, ordinal)
if not numbers[number] then
numbers[number] = {}
end
numbers[number].cardinal = cardinal
numbers[number].ordinal = ordinal
end
local function prepend(prefix, items)
if type(items) == "table" then
local result = {}
for _, item in ipairs(items) do
table.insert(result, prefix .. item)
end
return result
else
return prefix .. items
end
end
local function append(items, suffix)
if type(items) == "table" then
local result = {}
for _, item in ipairs(items) do
table.insert(result, item .. suffix)
end
return result
else
return items .. suffix
end
end
local function more_than_one_nonzero(...)
local count = 0
for _, v in ipairs(arg) do
if v ~= 0 then count = count + 1 end
end
return count > 1
end
local function make_factor(factor, base, separator)
local factorbase = factor * base
local factor_ord = alt_ordinal[factor] or numbers[factor].ordinal
if factorbase > MAXIMUM_FACTORS_ANY then return false end
set_number(factorbase,
numbers[factor].cardinal .. separator .. partitives[base],
append(factor_ord, separator .. numbers[base].ordinal)
)
return true
end
local function make_factors(base)
local separator = base >= 1000000 and " " or ""
for factor = 2,9 do
if not make_factor(factor, base, separator) then break end
end
end
local function past_maximum(base, hundreds, tens, units)
local factor = hundreds + tens + units
local factorbase = factor * base
if factorbase > MAXIMUM_FACTORS_MNZ and more_than_one_nonzero(hundreds, tens, units) then
return true
end
if factorbase > MAXIMUM_FACTORS_MT1 and math.max(hundreds, tens, units) > 1 then
return true
end
return factorbase > MAXIMUM_FACTORS_ANY
end
local function make_factors_tens_hundreds(base)
local separator = base >= 1000000 and " " or ""
for hundreds=0,900,100 do
for tens=0,90,10 do
if past_maximum(base, hundreds, tens, 0) then break end
for units=0,9 do
if past_maximum(base, hundreds, tens, units) then break end
local factor = hundreds + tens + units
if factor >= 2 then
if not make_factor(factor, base, separator) then break end
end
end
end
end
end
local function make_first_decade(base)
local separator = base >= 1000 and " " or ""
for ones = 1,9 do
if base + ones > MAXIMUM_ONES then break end
local alt_ord = alt_ordinal[ones]
set_number(base + ones,
numbers[base].cardinal .. separator .. numbers[ones].cardinal,
alt_ord and {
numbers[base].ordinal .. separator .. alt_ord,
numbers[base].ordinal .. separator .. numbers[ones].ordinal
} or numbers[base].ordinal .. separator .. numbers[ones].ordinal
)
end
end
local function make_hundreds()
local base = 100
make_factors(base)
for factor = 1,9 do
local factorbase = factor * base
if factorbase > MAXIMUM_ONES then break end
make_first_decade(factorbase)
for offset = 10,base-1 do
local n = factorbase + offset
if n > MAXIMUM_ONES then break end
set_number(n,
prepend(numbers[factorbase].cardinal, numbers[offset].cardinal),
prepend(numbers[factorbase].ordinal, numbers[offset].ordinal)
)
end
end
end
local function recurse_down(factorbase, unit)
make_first_decade(factorbase)
for offset = 10,999 do
local n = factorbase + offset * unit
if n > MAXIMUM_ONES then break end
set_number(n,
prepend(numbers[factorbase].cardinal .. " ", numbers[offset].cardinal),
prepend(numbers[factorbase].ordinal .. " ", numbers[offset].ordinal)
)
end
if unit >= 1000 then
for factor = 0,999 do
local n = factorbase + factor / 1000
if n > MAXIMUM_ONES then break end
recurse_down(n, unit / 1000)
end
elseif unit ~= 1 then
error("Illegal state")
end
end
local function expand_power(power3)
local base = 1
for _ = 1,power3 do base = 1000 * base end
make_factors_tens_hundreds(base)
for factor = 1,999 do
recurse_down(factor * base, base / 1000)
end
end
local function remove_link_if(form)
return mw.ustring.find(form, " ") and not mw.ustring.find(form, "%[")
end
-- local function separate_links(form)
-- if not mw.ustring.find(form, " ") or mw.ustring.find(form, "%[") then
-- return form
-- end
-- if mw.ustring.find(form, "<") then
-- local tag_index = mw.ustring.find(form, "<")
-- local before_tag, tag = mw.ustring.sub(form, 1, tag_index - 1), mw.ustring.sub(form, tag_index)
-- return separate_links(before_tag) .. tag
-- end
-- if not mw.ustring.find(form, "[^0-9 .-]") then
-- -- TODO (delink completely)
-- return form
-- end
-- return mw.ustring.gsub(form, "[a-zåäöšž]+", "[[%1]]") .. "<link:>"
-- end
for ones = 1,9 do
local one_ord = alt_ordinal[ones] or numbers[ones].ordinal
set_number(10 + ones,
numbers[ones].cardinal .. nth_decades[1],
one_ord .. nth_decades[1]
)
end
make_factors(10)
for tens = 20,90,10 do
make_first_decade(tens)
end
make_hundreds()
expand_power(1)
expand_power(2)
local function make_default_ordinal_abbr(num, data)
local tbl = { num .. "." }
local enc = { }
local function visit(ord)
local form
if mw.ustring.match(ord, "nen$") then
form = num .. ":nen"
else
form = num .. ":s"
end
if not enc[form] then
enc[form] = true
table.insert(tbl, form)
end
end
if type(data.ordinal) == "table" then
for _, ord in ipairs(data.ordinal) do
visit(ord)
end
else
visit(data.ordinal)
end
return tbl
end
for num, data in pairs(numbers) do
num = tostring(num)
if #num < 10 then -- skip large numbers
if #num >= 4 then
local num_remainder_digits = #num % 3
local left_remainder_digits = num:sub(1, num_remainder_digits)
local right_power_of_3_digits = num:sub(1 + num_remainder_digits)
num = left_remainder_digits .. right_power_of_3_digits:gsub("(...)", " %1")
end
data.ordinal_abbr = data.ordinal_abbr or make_default_ordinal_abbr(num, data)
end
end
local empty_keys = {}
-- remove entries with spaces. we do not want links to them.
for number, form_types in pairs(export.numbers) do
for form_type, forms in pairs(form_types) do
if type(forms) == "string" then
if remove_link_if(forms) then
form_types[form_type] = nil
end
elseif type(forms) == "table" then
local source_index = 1
local source_end = #forms
local destination_index = 1
while source_index <= source_end do
local form = forms[source_index]
if not remove_link_if(form) then
forms[destination_index] = form
destination_index = destination_index + 1
end
source_index = source_index + 1
end
end
end
--if not pairs(form_types)(form_types) then
if not (form_types.cardinal or form_types.ordinal) then
table.insert(empty_keys, number)
end
end
for _, number in ipairs(empty_keys) do
export.numbers[number] = nil
end
for num = 0,115 do
numbers[num].wplink = ("%s (luku)"):format(num)
end
return export
