Módulo:ConvertNumeric/sandbox
Este módulo no tiene página de documentación[crear]
-- Módulo para convertir entre diferentes representaciones de números
-- Los tests están en [[Módulo:ConvertNumeric/tests]], úsalos para verificar las ediciones
-- Antes de editar el módulo prueba tus cambios en [[Módulo:ConvertNumeric/sandbox]] y verifica que funcionan en [[Módulo_discusión:ConvertNumeric/sandbox/testcases]]
local posicion_unidades = {
[0] = 'cero',
[1] = 'uno',
[2] = 'dos',
[3] = 'tres',
[4] = 'cuatro',
[5] = 'cinco',
[6] = 'seis',
[7] = 'siete',
[8] = 'ocho',
[9] = 'nueve',
[10] = 'diez',
[11] = 'once',
[12] = 'doce',
[13] = 'trece',
[14] = 'catorce',
[15] = 'quince',
[16] = 'dieciseis',
[17] = 'diecisiete',
[18] = 'dieciocho',
[19] = 'diecinueve'
}
local posicion_unidades_ord = {
[0] = 'cero', -- No existe en español una diferencia
[1] = 'primero',
[2] = 'segundo',
[3] = 'tercero',
[4] = 'cuarto',
[5] = 'quinto',
[6] = 'sexto',
[7] = 'séptimo',
[8] = 'octavo',
[9] = 'noveno',
[10] = 'décimo',
[11] = 'décimo primero',
[12] = 'duodécimo',
[13] = 'décimo tercero',
[14] = 'décimo cuarto',
[15] = 'décimo quinto',
[16] = 'décimo sexto',
[17] = 'décimo séptimo',
[18] = 'décimo octavo',
[19] = 'décimo noveno'
}
local separadores = {
[0] = ' y ', -- Para cardinales
[1] = ' ', -- Para ordinales
}
local posicion_decenas = {
[2] = 'veinte',
[3] = 'treinta',
[4] = 'cuarenta',
[5] = 'cincuenta',
[6] = 'sesenta',
[7] = 'setenta',
[8] = 'ochenta',
[9] = 'noventa'
}
local posicion_decenas_ord = {
[2] = 'vigésimo',
[3] = 'trigésimo',
[4] = 'cuadragésimo',
[5] = 'quincuagésimo',
[6] = 'sexagésimo',
[7] = 'septuagésimo',
[8] = 'octogésimo',
[9] = 'nonagésimo'
}
local posicion_centenas = {
[1] = 'cien',
[2] = 'doscientos',
[3] = 'trescientos',
[4] = 'cuatrocientos',
[5] = 'quinientos',
[6] = 'seiscientos',
[7] = 'setecientos',
[8] = 'ochocientos',
[9] = 'novecientos'
}
local posicion_centenas_ord = {
[1] = 'centésimo',
[2] = 'ducentésimo',
[3] = 'tricentésimo',
[4] = 'cuadringentésimo',
[5] = 'quingentésimo',
[6] = 'sexcentésimo',
[7] = 'septingentésimo',
[8] = 'octingentésimo',
[9] = 'noningentésimo'
}
local groups = {
[1] = 'mi',
[2] = 'bi',
[3] = 'tri',
[4] = 'cuatri',
[5] = 'quinti',
[6] = 'sexti',
[7] = 'septi',
[8] = 'octi',
[9] = 'noni',
[10] = 'deci',
[11] = 'undeci',
[12] = 'duodeci',
[13] = 'tredeci',
[14] = 'cuatordeci',
[15] = 'quindeci',
[16] = 'sexdeci',
[17] = 'septendeci',
[18] = 'octodeci',
[19] = 'novendeci',
[20] = 'viginti'
}
local decimal_small_groups = {
[1] = 'décima',
[2] = 'centésima',
[3] = 'milésima',
[4] = 'diezmilésima',
[5] = 'cienmilésima',
}
local roman_numerals = {
I = 1,
V = 5,
X = 10,
L = 50,
C = 100,
D = 500,
M = 1000
}
-- Converts a given valid roman numeral (and some invalid roman numerals) to a number. Returns -1, errorstring on error
local function roman_to_numeral(roman)
if type(roman) ~= "string" then return -1, "el número romano no es un string" end
local rev = roman:reverse()
local raising = true
local last = 0
local result = 0
for i = 1, #rev do
local c = rev:sub(i, i)
local next = roman_numerals[c]
if next == nil then return -1, "el número romano contiene un caracter erróneo " .. c end
if next > last then
result = result + next
raising = true
elseif next < last then
result = result - next
raising = false
elseif raising then
result = result + next
else
result = result - next
end
last = next
end
return result
end
-- Convierte un número entre 0 y 100 a texto en Español (ejemplo 47 -> cuarenta y siete)
local function numeral_to_spanish_less_100(num, ordinal, zero, final)
local unidades, decenas
if ordinal then
unidades = posicion_unidades_ord
decenas = posicion_decenas_ord
sep = separadores[1]
else
unidades = posicion_unidades
decenas = posicion_decenas
sep = separadores[0]
end
local value = ''
if num == 0 and zero ~= nil then -- Si es 0 y se especifica valor para el caso cero
value = zero
elseif num < 20 then -- Caso para números menores de 20 que son raros en general
value = unidades[num]
elseif num % 10 == 0 then -- Caso genérico para veinte, treinta, cuarenta etc | cuadragésimo
value = decenas[num / 10]
elseif math.floor(num / 10) == 2 and not ordinal then -- Caso especial para el veintiuno veintidos veintitres etc....
local tmp = 'veinti' .. unidades[num % 10]
if tmp == 'veintitres' then tmp = 'veintitrés' end
value = tmp
else -- Caso genérico de noventa y uno, cincuenta y dos | vigesimo tercero
value = decenas[math.floor(num / 10)] .. sep .. unidades[num % 10]
end
if not final and value == 'cero' then
value = ''
end
return value
end
-- Convierte un entero entre 0 y 1000 a texto en Español (e.g. 475 -> cuatrocientos setenta y cinco)
local function numeral_to_spanish_less_1000(num, ordinal, zero, final)
local centenas
if ordinal then
centenas = posicion_centenas_ord
else
centenas = posicion_centenas
end
num = tonumber(num)
if num < 100 then
return numeral_to_spanish_less_100(num, ordinal, zero, final)
elseif num % 100 == 0 then
return centenas[num/100]
elseif math.floor(num/100) == 1 and not ordinal then
return 'ciento' .. ' ' .. numeral_to_spanish_less_100(num % 100, ordinal, zero)
else
return centenas[math.floor(num/100)] .. ' ' .. numeral_to_spanish_less_100(num % 100, ordinal, zero, final)
end
end
-- Convierte un número expresado en notación científica a la notación decimal estándar
-- ejemplo 1.23E5 -> 123000, 1.23E-5 = .0000123. La conversión es exacta, sin redondeos.
local function scientific_notation_to_decimal(num)
local exponent, subs = num:gsub("^%-?%d*%.?%d*%-?[Ee]([+%-]?%d+)$", "%1")
if subs == 0 then return num end -- Input not in scientific notation, just return unmodified
exponent = tonumber(exponent)
local negative = num:find("^%-")
local _, decimal_pos = num:find("%.")
-- Mantissa will consist of all decimal digits with no decimal point
local mantissa = num:gsub("^%-?(%d*)%.?(%d*)%-?[Ee][+%-]?%d+$", "%1%2")
if negative and decimal_pos then decimal_pos = decimal_pos - 1 end
if not decimal_pos then decimal_pos = #mantissa + 1 end
-- Remove leading zeros unless decimal point is in first position
while decimal_pos > 1 and mantissa:sub(1,1) == '0' do
mantissa = mantissa:sub(2)
decimal_pos = decimal_pos - 1
end
-- Shift decimal point right for exponent > 0
while exponent > 0 do
decimal_pos = decimal_pos + 1
exponent = exponent - 1
if decimal_pos > #mantissa + 1 then mantissa = mantissa .. '0' end
-- Remove leading zeros unless decimal point is in first position
while decimal_pos > 1 and mantissa:sub(1,1) == '0' do
mantissa = mantissa:sub(2)
decimal_pos = decimal_pos - 1
end
end
-- Shift decimal point left for exponent < 0
while exponent < 0 do
if decimal_pos == 1 then
mantissa = '0' .. mantissa
else
decimal_pos = decimal_pos - 1
end
exponent = exponent + 1
end
-- Insert decimal point in correct position and return
return (negative and '-' or '') .. mantissa:sub(1, decimal_pos - 1) .. '.' .. mantissa:sub(decimal_pos)
end
-- Rounds a number to the nearest two-word number (round = up, down, or "on" for round to nearest)
-- Numbers with two digits before the decimal will be rounded to an integer as specified by round.
-- Larger numbers will be rounded to a number with only one nonzero digit in front and all other digits zero.
-- Negative sign is preserved and does not count towards word limit.
local function round_for_english(num, round)
-- If an integer with at most two digits, just return
if num:find("^%-?%d?%d%.?$") then return num end
local negative = num:find("^%-")
if negative then
-- We're rounding magnitude so flip it
if round == 'up' then round = 'down' elseif round == 'down' then round = 'up' end
end
-- If at most two digits before decimal, round to integer and return
local _, _, small_int, trailing_digits, round_digit = num:find("^%-?(%d?%d?)%.((%d)%d*)$")
if small_int then
if small_int == '' then small_int = '0' end
if (round == 'up' and trailing_digits:find('[1-9]')) or (round == 'on' and tonumber(round_digit) >= 5) then
small_int = tostring(tonumber(small_int) + 1)
end
return (negative and '-' or '') .. small_int
end
-- When rounding up, any number with > 1 nonzero digit will round up (e.g. 1000000.001 rounds up to 2000000)
local nonzero_digits = 0
for digit in num:gfind("[1-9]") do
nonzero_digits = nonzero_digits + 1
end
num = num:gsub("%.%d*$", "") -- Remove decimal part
-- Second digit used to determine which way to round lead digit
local _, _, lead_digit, round_digit, round_digit_2, rest = num:find("^%-?(%d)(%d)(%d)(%d*)$")
if tonumber(lead_digit .. round_digit) < 20 and (1 + #rest) % 3 == 0 then
-- In English numbers < 20 are one word so put 2 digits in lead and round based on 3rd
lead_digit = lead_digit .. round_digit
round_digit = round_digit_2
else
rest = round_digit_2 .. rest
end
if (round == 'up' and nonzero_digits > 1) or (round == 'on' and tonumber(round_digit) >= 5) then
lead_digit = tostring(tonumber(lead_digit) + 1)
end
-- All digits but lead digit will turn to zero
rest = rest:gsub("%d", "0")
return (negative and '-' or '') .. lead_digit .. '0' .. rest
end
-- Takes a decimal number and converts it to English text.
-- Return nil if a fraction cannot be converted (only some numbers are supported for fractions).
-- num (string or nil): the number to convert.
-- Can be an arbitrarily large decimal, such as "-123456789123456789.345", and
-- can use scientific notation (e.g. "1.23E5").
-- May fail for very large numbers not listed in "groups" such as "1E4000".
-- num is nil if there is no whole number before a fraction.
-- numerator (string or nil): numerator of fraction (nil if no fraction)
-- denominator (string or nil): denominator of fraction (nil if no fraction)
-- capitalize (boolean): whether to capitalize the result (e.g. 'One' instead of 'one')
-- use_and (boolean): whether to use the word 'and' between tens/ones place and higher places
-- hyphenate (boolean): whether to hyphenate all words in the result, useful for use as an adjective
-- ordinal (boolean): whether to produce an ordinal (e.g. 'first' instead of 'one')
-- plural (boolean): whether to pluralize the resulting number
-- links: nil: do not add any links; 'on': link "billion" and larger to Orders of magnitude article;
-- any other text: list of numbers to link (e.g. "billion,quadrillion")
-- negative_word: word to use for negative sign (typically 'negative' or 'minus'; nil to use default)
-- round: nil or '': no rounding; 'on': round to nearest two-word number; 'up'/'down': round up/down to two-word number
-- zero: word to use for value '0' (nil to use default)
-- use_one (boolean): false: 2+1/2 → "two and a half"; true: "two and one-half"
local function numeral_to_spanish(num, capitalize, ordinal, links, negative_word, round, zero)
if not negative_word then
negative_word = 'menos'
end
num = scientific_notation_to_decimal(num)
if round and round ~= '' then
if round ~= 'on' and round ~= 'up' and round ~= 'down' then
error("Invalid rounding mode")
end
num = round_for_english(num, round)
end
-- Separar y detectar el signo negativo, num (dígitos antes del punto decimal), decimal_places (digitos después del decimal)
-- Manejo de signos
local MINUS = '−' -- Si utiliza el signo Unicode U+2212 MINUS SIGN reemplazarlo por el '-'
if num:sub(1, #MINUS) == MINUS then
num = '-' .. num:sub(#MINUS + 1) -- replace MINUS with '-'
elseif num:sub(1, 1) == '+' then --Si encuentra un '+' ignorarlo
num = num:sub(2) -- ignore any '+'
end
local negative = num:find("^%-") --Extraer el signo
local decimal_places, subs = num:gsub("^%-?%d*%.(%d+)$", "%1") -- Extraer posiciones decimales
if subs == 0 then decimal_places = nil end -- Si no hay marcarlo como nil
num, subs = num:gsub("^%-?(%d*)%.?%d*$", "%1") -- Extraer el número
if num == '' and decimal_places then num = '0' end -- Si está vacío y hay decimales -> marcar como 0
if subs == 0 or num == '' then error("Número decimal erróneo") end -- Si no se encuentra número se lanza un error
-- For each group of 3 digits except the last one, print with appropriate group name (e.g. million)
local s = '' -- Aquí se irá almacenando el número
while #num > 6 do
if s ~= '' then s = s .. ' ' end -- Si ya se han añadido cosas meter espacio
local group_num = math.floor(#num/6)
local group = groups[group_num]
local group_digits_B = #num - group_num*6
local group_digits_A = group_digits_B-3
-- Los grupos son: XXXYYY000000
-- A B resto
-- Manejando el grupo A
if group_digits_A > 0 then
if tonumber(num:sub(1, group_digits_A)) ~= 1 then
local res = numeral_to_spanish_less_1000(num:sub(1, group_digits_A), false, zero, false):gsub('uno', 'un')
s = s .. res .. ' '
end
s = s .. 'mil '
else
group_digits_A = 0
end
-- Manejando el grupo B
if tonumber(num:sub(group_digits_A+1, group_digits_B)) ~= 1 then
if tonumber(num:sub(group_digits_A+1, group_digits_B)) ~= 0 then
local res = numeral_to_spanish_less_1000(num:sub(group_digits_A+1, group_digits_B), false, zero, false):gsub('uno', 'un')
s = s .. res .. ' '
end
else
s = s .. 'un '
end
-- Añade la terminación al nombre de grupo en plural o singular
if tonumber(num:sub(1, group_digits_B)) ~= 1 or group_digits_B == 6 then
group = group .. 'llones'
else
group = group .. 'llón'
end
-- Cambia millon/millones por millonésimo en los ordinales que toque
if ordinal and string.find(group, 'mill') and tonumber(num:sub(group_digits_B, group_digits_B+3)) == 0 then
group = 'millonésimo'
end
-- Si el enlazado está activo coloca el enlace al grupo
if links and (((links == 'on' and group_num >= 1) or links:find(group)) and group_num <= 13) then
s = s .. '[[Orden_de_magnitud_(números)#10' .. group_num*6 .. '|' .. group .. ']]'
else
s = s .. group -- Si no lo deja tal cual
end
num = num:sub(1 + group_digits_B)
num = num:gsub("^0*", "") -- Trim leading zeros
end
-- Handle final six digits of integer part
if s ~= '' and num ~= '' then
s = s .. ' '
end
if s == '' or num ~= '' then
local num_digits_A = 0
local isOnly = true
if #num > 3 then
local num_digits_A = #num - 3
if tonumber(num:sub(1, num_digits_A)) ~= 1 then
if ordinal and tonumber(num:sub(1, num_digits_A)) < 100 then
s = s .. numeral_to_spanish_less_1000(num:sub(1, num_digits_A), false, zero, false)
else
s = s .. numeral_to_spanish_less_1000(num:sub(1, num_digits_A), false, zero, false) .. ' '
end
end
if ordinal then
s = s .. 'milésimo '
else
s = s .. 'mil '
end
num = num:sub(1 + num_digits_A)
isOnly = false
end
s = s .. numeral_to_spanish_less_1000(num:sub(num_digits_A, #num), ordinal, zero, isOnly)
end
-- For decimal places (if any) output "point" followed by spelling out digit by digit
if decimal_places then
local name = ''
local one = false
if #decimal_places > 5 then
local d = math.ceil((#decimal_places - 5)/6)
name = groups[d] .. 'llonésima'
else
name = decimal_small_groups[#decimal_places]
end
if decimal_places ~= '1' then
name = name .. 's'
else
one = true
end
s = s .. ' con'
--for i = 1, #decimal_places do
--s = s .. ' ' .. posicion_unidades[tonumber(decimal_places:sub(i,i))]
--end
while decimal_places:sub(1,1) == '0' do
decimal_places = decimal_places:sub(2, #decimal_places)
end
s = s .. ' ' .. numeral_to_spanish(decimal_places, false, false, links, false, false, zero):gsub('uno', 'una'):gsub('cientos', 'cientas')
s = s .. ' ' .. name
end
s = s:gsub("^%s*(.-)%s*$", "%1") -- Trim whitespace
if negative and s ~= cero then s = negative_word .. ' ' .. s end
s = s:gsub("menos cero", "cero")
if capitalize then s = s:gsub("^%l", string.upper) end
s = s:gsub("^%s*(.-)%s*$", "%1") -- Trim whitespace
return s
end
---- Función recursiva para convertir números decimales a hexadecimales
local function decToHexDigit(dec)
local dig = {"0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"}
local div = math.floor(dec/16)
local mod = dec-(16*div)
if div >= 1 then return decToHexDigit(div)..dig[mod+1] else return dig[mod+1] end
end
local p = { -- Functions that can be called from another module
roman_to_numeral = roman_to_numeral,
spell_number = numeral_to_spanish
}
function p._roman_to_numeral(frame) -- Callable via {{#invoke:ConvertNumeric|_roman_to_numeral|VI}}
return roman_to_numeral(frame.args[1])
end
function p.numeral_to_spanish(frame)
local args = frame.args
local num = args[1]
num = num:gsub("^%s*(.-)%s*$", "%1") -- Quitar espacios en blanco
num = num:gsub(",", "") -- Quitar comas
num = num:gsub("^<span[^<>]*></span>", "") -- Generated by Template:age
if num ~= '' then -- a fraction may have an empty whole number
if not num:find("^%-?%d*%.?%d*%-?[Ee]?[+%-]?%d*$") then
-- Input not in a valid format, try to pass it through #expr to see
-- if that produces a number (e.g. "3 + 5" will become "8").
num = frame:preprocess('{{#expr: ' .. num .. '}}')
end
end
-- Pass args from frame to helper function
return numeral_to_spanish(
num,
args['case'] == 'U' or args['case'] == 'u',
args['ord'] == 'on',
args['lk'],
args['negative'],
args['round'],
args['zero']
) or ''
end
function p.decToHex(frame)
local args=frame.args
local parent=frame.getParent(frame)
local pargs={}
if parent then pargs=parent.args end
local text=args[1] or pargs[1] or ""
local minlength=args.minlength or pargs.minlength or 1
minlength=tonumber(minlength)
local prowl=mw.ustring.gmatch(text,"(.-)(%d+)")
local output=""
repeat
local chaff,dec=prowl()
if not(dec) then break end
local hex=decToHexDigit(dec)
while (mw.ustring.len(hex)<minlength) do hex="0"..hex end
output=output..chaff..hex
until false
local chaff=mw.ustring.match(text,"(%D+)$") or ""
return output..chaff
end
return p