Этот модуль позволяет приводить числа из системы счисления с каким-либо основанием к какому-либо другому основанию [подтвердить корректность терминологии] вплоть до 15.
Модуль предоставляет три функции для удобства: fromDec, fromHex и fromBin, предназначенные для преобразования соответственно из десятичной, шестнадцатеричной и двоичной систем счисления в систему счисления с любым другим основанием; также модуль предоставляет одну основную функцию: fromBase, предназначенную для остальных целей.
local p = {} function p.fromDec( f ) local args = f.args or f local base = tonumber( args[2] ) or 16 local dec = tonumber( args[1] ) or 0 if base == 10 or dec == 0 then return dec elseif base == 16 then return string.format( '%X', dec ) else local chars = '0123456789ABCDEF' local pos local out = '' while dec > 0 do pos = math.mod( dec, base ) + 1 dec = math.floor( dec / base ) out = string.sub( chars, pos, pos ) .. out end return out end end function p.fromBase( f ) local args = f.args or f local fromBase = tonumber( args[3] ) or 10 local toBase = tonumber( args[2] ) or 16 local dec = tonumber( args[1], fromBase ) or 0 return p.fromDec{ dec, toBase } end function p.fromHex( f ) return p.fromBase{ f.args[1], f.args[2], 16 } end function p.fromBin( f ) return p.fromBase{ f.args[1], f.args[2], 2 } end return p