Módulo:Numeros

local z = {}    function z.Roman(frame)  local numero,argumentos,parent  local NumerosRomansMenors4000 = {     {3000, "MMM"},{2000, "MM"},{1000, "M"},     {900, "CM"}, {800, "DCCC"}, {700, "DCC"}, {600, "DC"}, {500, "D"}, {400, "CD"},     {300, "CCC"}, {200, "CC"}, {100, "C"},     {90, "XC"},{80, "LXXX"},{70, "LXX"},{60, "LX"}, {50, "L"}, {40, "XL"},      {30, "XXX"},{20, "XX"},{10, "X"},     {9, "IX"}, {8, "VIII"},{7, "VII"},{6, "VI"}, {5, "V"}, {4, "IV"},     {3, "III"},{2, "II"}, {1, "I"}   }  if type(frame) == 'number' then -- Para poder gritar-lo dende atro modulo fácilment      numero = frame  else      argumentos = frame.args;      parent     = frame:getParent();      numero     = tonumber(argumentos[1] or parent.args[1]) --Numero decimal que se quiere convertir a numeración romana  end  if numero == nil or numero == "" or numero >= 4000 then return "" end    local resultau = ''      for _, v in ipairs( NumerosRomansMenors4000 ) do    local valor, letras = unpack( v )        if numero >= valor then       numero    = numero - valor       resultau = resultau .. letras    end  end    return resultauendreturn z