2734
правки
Поддержка Wiki прекращена, она доступна в режиме архива. Информация в ней устарела и может быть неактуальной.
Изменения
Новая страница: «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 d…»
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
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
