Editing Module:NumberUtil

local p={}
local lib_arg={}
local lib_var={}
local yesno = {}
local lib_tempPar = {}

function p.foreachNumber(frame)
	local args, working_frame
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
        args = lib_arg.getArgs(frame, {parentFirst=true})
        working_frame = frame
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
        working_frame = mw.getCurrentFrame()
        if type(args) ~= type({}) then args = {frame} end
    end
    local input_article = args[1] or args['1'] or ''
    local input_calc = args[2] or args['2'] or '$1'
    local pattern = '#expr:' .. mw.ustring.gsub(input_calc,'%%(%d+)','%%%%%1') .. '}}'
    if mw.isSubsting() then pattern = 'safesubst:' .. pattern end
    pattern = '{{' .. pattern
    pattern = mw.ustring.gsub(pattern,'%$','(%%1)')
    local result = mw.ustring.gsub(input_article,'(%-?[%d%.]+)',pattern)
	return working_frame:preprocess( result )
end 

function p.forrangeNumber(frame)
	if lib_var._arg_process == nil then lib_var = require('Module:Var') end
	local args, working_frame = lib_var._arg_process(frame)
	local expr=args[4] or args['4'] or 'x'
	local var_name=args[5] or args['5'] or 'x'
	local var_str=args[6] or args['6'] or 'x'
	var_str = mw.ustring.gsub(var_str,"%%","%%%%");
	expr = mw.ustring.gsub(expr,"%a+",function(str)
		if str==var_name then return "("..var_str..")" end 
	end)
	expr = mw.ustring.gsub(expr,"[質质素][數数]","primeIndexAtModuleFactorization")
	local output_str=args[1] or args['1'] or '$1,'
	local start_n = tonumber(args[2] or args['2'] or args.min or '1')or 1
	local end_n = tonumber(args[3] or args['3'] or args.max or '10')or 10
	local math_lib = math
	local tonumber_func = tonumber

    if args.template then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
		if yesno(args.template or 'no') then
			return p.templateSequence(frame)
		end
    end
	if args.class then
		local comp_number;
		local num_class = mw.ustring.lower(args.class)
		if num_class == 'cmath' then 
			if comp_number == nil then comp_number = require("Module:Complex Number") end
			math_lib = comp_number.cmath.init()
			tonumber_func = math_lib.toComplexNumber
		elseif num_class == 'qmath' then 
			if comp_number == nil then comp_number = require("Module:Complex Number") end
			math_lib = comp_number.qmath.init()
			tonumber_func = math_lib.toQuaternionNumber
		else
			local calc_checkor = require("Module:Complex Number/Calculate")
			local module_name, math_lib_name = calc_checkor.checkModuleClass(args.class)
			xpcall(function()
				local load_module = require("Module:"..module_name)
				if load_module ~= nil then
					local load_math_lib = load_module[math_lib_name]
					if load_module ~= nil then
						local func_type = type(function()end)
						local my_math_lib = (type(load_math_lib.init) == func_type) and load_math_lib.init() or load_math_lib
						if type(my_math_lib.constructor) == func_type then
							math_lib = my_math_lib
							tonumber_func = my_math_lib.constructor
						end
					end
				end
			end,function()end)
		end
	end
	local series = false
	local raw_val = false
    if args.series then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
		series = yesno(args.series or 'no') 
    end
    if args.raw_value then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
		raw_val = yesno(args.raw_value or 'no') 
	end
    if args.delnowiki then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
		if yesno(args.delnowiki or 'no') then
			output_str = mw.text.unstripNoWiki( output_str )
		end
	end
	if args.delmsgnw then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
    	if yesno(args.delmsgnw or 'no') then 
			output_str = mw.text.decode( output_str )
		end
	end
	local input_arg = {useOtherModule="yes"}
	for ikey, ivalue in pairs(args) do
		if mw.ustring.find(ikey,"last") then
			input_arg[ikey] = ivalue
		end
	end
	local num_arr=mw.text.split(require("Module:FunctionGraph")._functionGraph({expr},
		start_n,end_n,math.abs(start_n-end_n), nil, nil, input_arg,math_lib,tonumber_func).y1,',')
	local body=""
	if series==true then 
		for i=1,#num_arr do
			local last = num_arr[i-1]
			num_arr[i] = tonumber_func(num_arr[i]) + tonumber_func(last or 0)
		end
	end
	for i=1,#num_arr do
		body = body .. mw.ustring.gsub(output_str,"(%$[+-]?[%d]*)",function(str)
			local tail = ''
			if str=="$+" or str=="$-" then tail = mw.ustring.sub(str,-1) end
			local check, num = mw.ustring.find(str,"[+-]?[%d]+")
			if check then 
				num = tonumber(mw.ustring.sub(str, check, num) or '') or 1
			else
				num = 1
			end
			local idx = num+i-1
			if num < 0 then idx = num+i end
			if num == 0 then return tostring(i+start_n-1) .. tail end
			local get_val
			if raw_val then 
				if num < 0 and idx<1 then 
					get_val = tostring(input_arg['last'..math.abs(num)])
				else get_val = tostring(num_arr[idx]) end
			else
				if num < 0 and idx<1 then 
					get_val = tonumber_func(input_arg['last'..math.abs(num)])
				else get_val = tonumber_func(num_arr[idx]) end
			end
			
			if mw.text.trim(tostring(get_val or '')) ~= '' then return tostring(get_val) .. tail end
			return str
		end)
	end
    if args.preprocess then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
		if yesno(args.preprocess or 'no') then
			return working_frame:preprocess( body )
		end
	end
	return body
end

function p.templateSequence(frame)
	if lib_var._arg_process == nil then lib_var = require('Module:Var') end
	local args, working_frame = lib_var._arg_process(frame)
	local output_str=args[1] or args['1'] or '$1,'
	local start_n = tonumber(args[2] or args['2'] or args.min or '1')or 1
	local end_n = tonumber(args[3] or args['3'] or args.max or '10')or 10
	local expr = mw.ustring.format(" %s ", args[4] or args['4'] or '$')
	
	if type(lib_tempPar._get_escape) ~= type(function()end) then lib_tempPar = require('Module:TemplateParameters') end
	
	output_str = mw.text.unstripNoWiki( output_str )
	expr = mw.text.unstripNoWiki(expr)
	if args.delmsgnw then
    	if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
    	if yesno(args.delmsgnw or 'no') then 
			output_str = mw.text.decode( output_str )
			expr = mw.text.decode( expr )
		end
	end
	
	output_str = lib_tempPar._get_escape(output_str)
	expr = lib_tempPar._get_escape(expr)
	expr = mw.ustring.gsub(expr, "([^%$])%$([^%$])", function(prefix, suffix)
			return prefix.."\127MONEY\127"..suffix
		end)
	expr = mw.ustring.gsub(expr, "%$", "$$")
	expr = mw.ustring.gsub(expr, "\127MONEY\127", "$")

	local body = ''
	local num_arr = {}
	for i=start_n, end_n do
		local result = expr
		result = mw.ustring.gsub(result, "([^%$])%$([^%$])", function(prefix, suffix)
			return prefix..i..suffix
		end)
		result = mw.ustring.gsub(result, "%$%$", "$")
		result = mw.ustring.sub(result, 2, -2)
		num_arr[#num_arr + 1] = result
	end
	for i=1,#num_arr do
		body = body .. mw.ustring.gsub(output_str,"(%$[+-]?[%d]*)",function(str)
			local tail = ''
			if str=="$+" or str=="$-" then tail = mw.ustring.sub(str,-1) end
			local check, num = mw.ustring.find(str,"[+-]?[%d]+")
			if check then 
				num = tonumber(mw.ustring.sub(str, check, num) or '') or 1
			else
				num = 1
			end
			local idx = num+i-1
			if num < 0 then idx = num+i end
			if num == 0 then return tostring(i+start_n-1) .. tail end
			local get_val
			if num < 0 and idx<1 then 
				get_val = tostring(input_arg['last'..math.abs(num)])
			else get_val = tostring(num_arr[idx]) end
			
			if mw.text.trim(tostring(get_val or '')) ~= '' then return tostring(get_val) .. tail end
			return str
		end)
	end
	return working_frame:preprocess( body )
end

function p.exp10link(frame)
	if lib_var._arg_process == nil then lib_var = require('Module:Var') end
	local args, working_frame = lib_var._arg_process(frame)
    local input_number_str = args[1] or args['1'] or ''
    local digits = tonumber(input_number_str)
    if digits then
    	local test_num = '1'
    	if digits > 0 then
    		for i=1,digits do test_num = test_num .. '0' end
    	end
    	if working_frame:preprocess( "{{PAGENAME}}" ) == test_num then
    		return "'''10<sup>" .. input_number_str .. "</sup>'''"
    	end
    end
    return '[[1 E' .. input_number_str .. '|10<sup>' .. input_number_str .. '</sup>]]'
end
function p.MinusSignReplace(str)
	local input_str = str
	if type(str) == type({"table"}) then
		input_str = (str.args or {})[1] or str[1] or ''
	elseif type(str) ~= type("string") then
		input_str = tostring(str)
	end
	local body = mw.ustring.gsub(input_str,'%-','−')
	return body
end

function p.fractionalGaps(str, _width, _suffix)
	local input_str = str
	local width = tonumber(_width) or 4
	local suffix = _suffix or ''
	if type(str) == type({"table"}) then
		input_str = (str.args or {})[1] or str[1] or ''
		width = tonumber((str.args or {})[2] or str[2] or '') or 4
		suffix = (str.args or {})[3] or str[3] or ''
	elseif type(str) ~= type("string") then
		input_str = tostring(str)
	end
	input_str = input_str .. '.'
	local point_pos = mw.ustring.find(input_str, "%.")
	local int_str, fractional_str = mw.ustring.sub(input_str, 1, point_pos-1), mw.ustring.sub(input_str, point_pos+1, -1)
	fractional_str = mw.ustring.gsub(fractional_str, "[^%d%a]", '')
	local fractional_length = mw.ustring.len(fractional_str)
	local body = int_str .. '.'
	local i = 1
	while i <= fractional_length do
		local gap_part = mw.ustring.sub(fractional_str, i, i + width - 1)
		if gap_part == '' then break end
		if i <= 1 then body = body .. gap_part
		else
			body = body .. '<span style="margin-left: 0.25em">' .. gap_part ..'</span>'
		end
		i = i + width
	end
	return body .. (suffix ~= '' and ('<span style="margin-left: 0.25em">' .. suffix ..'</span>') or '')
end

function p.numberListTemplate(frame)
	if lib_var._arg_process == nil then lib_var = require('Module:Var') end
	local args, working_frame = lib_var._arg_process(frame)
    local input_number_str = args[1] or args['1'] or ''
    local failed = args.failed or ''
    local orginal_input_number_str = mw.text.trim(input_number_str)
	input_number_str = mw.ustring.gsub(input_number_str,'[Ii][Nn][Ff]','inf')
					:gsub('∞','inf')
					:gsub('[Nn][Aa][Nn]','nan')
	if mw.ustring.find(input_number_str,'[无無][穷窮限]') then input_number_str = 'inf' end
	local function out_text(text) return mw.text.tag( "div", {style="text-align: center;"}, mw.text.tag( "small", {}, text)) end
	if mw.ustring.find(input_number_str,'除') then return out_text("[[除以零]] 除以一 [[除以二]] [[除以三]] [[除法|>>]]") end
	if mw.ustring.find(input_number_str,'1/0') then return out_text("[[除以零]] 除以一 [[除以二]] [[除以三]] [[除法|>>]]") end
    input_number_str = mw.text.trim(input_number_str)
    local input_number = tonumber(input_number_str)
    if input_number then
		local inf_msg = out_text("[[擴展實數線|<<]] [[无穷|-∞]] .... [[-0]] [[0]] .... [[无穷|∞]] [[大数_(数学)|>>]]")
    	if not not tostring(input_number):lower():find('inf') then return inf_msg end
    	if not not tostring(input_number):lower():find('%-0') then return inf_msg end
		if not not tostring(input_number):lower():find('nan') then return out_text("[[NaN]] （參見：[[浮點數]]、[[算術溢出]]）") end
    	
    	local digits_log = math.floor(math.log10(math.abs(input_number)))+1
    	local is_zero = false
    	if math.abs(input_number)<1e-8 then 
    		digits_log = 4 
    		is_zero = true
    	end
    	local sign = ((input_number>0)and 1 or((input_number==0 or input_number==-0)and 0 or-1))
    	local int, frac = math.modf(math.abs(input_number))
    	local int10, frac10 = math.modf(math.abs(input_number) * 10)
		local invocation = require('Module:Template invocation')
		local body = ''
    	if frac > 1e-8 then --小數模式
    		local get_frac = mw.ustring.gsub(input_number_str,'[%+%-]','')
    		local _,frac_start = get_frac:find('%.')
    		if frac_start then get_frac = get_frac:sub(frac_start+1,-1) 
    		else get_frac = tostring(frac):sub(3,-1) end
    		local get_frac10 = '0' .. get_frac:sub(2,-1)
    		local get_frac100 = '00' .. get_frac:sub(3,-1)
    		if frac10 > 1e-8 then
				body = body .. invocation.invocation("Numbers digits", {
					orginal_input_number_str,
					digit = '0.01',
					tail = ( sign < 0 and '-' or '' ) .. '0.'..get_frac100
				})
    		end
			body = body .. invocation.invocation("Numbers digits", { orginal_input_number_str, digit = '0.1'})
		end
		for digits=1,digits_log do
			local current_unit = tonumber('1e'..(digits-1))
			local current_mod = int % current_unit
			if current_mod == 0 then
				body = body .. invocation.invocation("Numbers digits", { orginal_input_number_str, digit = current_unit})
			end
		end
		if is_zero then body = body .. inf_msg end
		return body
    else return failed end
end
function p.combineNumber(frame)
	local args, working_frame
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
        args = lib_arg.getArgs(frame, {
        	parentFirst=true,
        	trim = false,
			removeBlanks = false
        })
        working_frame = frame
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
        working_frame = mw.getCurrentFrame()
        if type(args) ~= type({}) then args = {frame} end
    end
    local input_article = args[1] or args['1'] or ''
    local spliter = {}
    input_spliter = mw.ustring.gsub(input_article, '(%d)', '%1%1%1')
    mw.ustring.gsub(input_spliter,'[%d%.]([^%d%.]+)[%d%.]',function(str)
    	spliter[str] =(spliter[str] or 0)+1
    	return str 
    end)
    local max_count = 0
    local spliter_str = args[2] or args['2'] or ','
    for value,v_count in pairs(spliter) do
    	if v_count > max_count then
    		max_count = v_count
    		spliter_str = value
    	end
    end
    if (args[2] or args['2']) ~= nil and (args[2] or args['2']) ~= '' then spliter_str = args[2] or args['2'] end
    if mw.text.trim(spliter_str or '') =='' then spliter_str = ' ' end
    local counting_sort = {}
     mw.ustring.gsub(input_article,'[%d%.]+',function(str)
     	local n_first, n_last = mw.ustring.find(str,'%d+')
     	if n_first then
     		local num = tonumber(mw.ustring.sub(str, n_first, n_last))
     		if num then counting_sort[num] = counting_sort[num] or str end
     	end
    	return str 
    end)
    local quick_sort = {}
    for value,v_count in pairs(counting_sort) do
    	quick_sort[#quick_sort + 1] = {value,v_count}
    end
    table.sort( quick_sort, function(left,fight) return left[1] < fight[1] end )

    local write_number = ''
    local output_arr = {}
    local trmp_str = ''
    for i=1,#quick_sort do
    	if type(write_number) ~= type(0) then 
    		write_number = quick_sort[i][1] 
    		trmp_str = '' .. quick_sort[i][2]
    	end
    	if quick_sort[i][1] + 1 ~= (quick_sort[i+1]or{quick_sort[i][1]-1})[1] then
    		if write_number ~= quick_sort[i][1] then
    			trmp_str = trmp_str .. "-"..quick_sort[i][2]
    		end
    		output_arr[#output_arr + 1] = trmp_str
    		write_number = ''
    	end
    end
	return table.concat( output_arr, spliter_str )
end 
return p