模块:NumSysConvert

此模块的文档可以在模块:NumSysConvert/doc创建

local num_sys_convert = {}

local DIGIT_MAP = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

local function decimal_to_base(input_num, target_base, digit_map, max_precision)
	digit_map = digit_map or DIGIT_MAP
	local digit_len = #digit_map
	
    if target_base < 2 or target_base > digit_len then
        error("根据您的映射表长度，目标进制只支持2~"..digit_len.."进制")
    elseif input_num == 0 then
    	return "0"
    end
    
    max_precision = max_precision or 10
    
    local is_negative = input_num < 0
    input_num = math.abs(input_num)
    
    local integer_part = math.floor(input_num)
    local integer_result = ""
    local fractional_part = input_num - integer_part
    local fractional_result = ""
    
    if integer_part == 0 then
        integer_result = "0"
    else
        while integer_part > 0 do
            local remainder = integer_part % target_base
            integer_result = string.sub(
            	digit_map, remainder + 1, remainder + 1)..integer_result
            integer_part = math.floor(integer_part / target_base)
        end
    end
    
    if fractional_part > 0 then
        fractional_result = "."
        local precision_count = 0
        
        while fractional_part > 0 and precision_count < max_precision do
            fractional_part = fractional_part * target_base
            
            local current_digit = math.floor(fractional_part)
            fractional_result =
            	fractional_result
            	..string.sub(digit_map, current_digit + 1, current_digit + 1)
            	
            fractional_part = fractional_part - current_digit
            precision_count = precision_count + 1
        end
    end
    
    local final_result = integer_result..fractional_result
    if is_negative then
        final_result = "-"..final_result
    end
    return final_result
end

num_sys_convert.decimal_to_base = decimal_to_base

num_sys_convert.show = function(frame)
	local dec_str = string.gsub(frame.args.num, ",", "")
	local num = tonumber(dec_str)
	local base = tonumber(frame.args.base)
	local digit_map = frame.args.digit_map
	return decimal_to_base(num, base,
		digit_map ~= nil and digit_map ~= "" and digit_map or DIGIT_MAP)
end

return num_sys_convert