Module:Factorization

local p = {}

local function powerformat(divisor, power, productSymbol) if power < 1     then return '' elseif power == 1 then return divisor .. ' ' .. productSymbol .. ' '   else return divisor .. '' .. power .. ' ' .. productSymbol .. ' '   end end

local function format(numString, bold, big, serif) if bold then numString = ..numString.. end

local ret = (serif or big) and '' or '') .. numString .. ((serif or big) and ' ' or '')

return ret end

function p.factor(frame) local number = tonumber(frame.args[1]) if number == nil then return ' Error: input not recognized as a number ' end number = math.floor(number) if number 1000000000 or number == math.huge then return ' Error: ' .. number .. ' out of range ' end

local result = "" local currentNumber = number local power = 0 local divisor = 2 local productSymbol = frame.args['product'] or '·' -- Attempt factoring by the value of the divisor -- divisor increments by 2, except first iteration (2 to 3) while divisor <= math.sqrt(currentNumber) do       power = 0 while currentNumber % divisor == 0 do           currentNumber = currentNumber / divisor power = power + 1 end

-- Concat result and increment divisor -- when divisor is 2, go to 3. All other times, add 2 result = result .. powerformat(divisor, power, productSymbol) divisor = divisor + (divisor == 2 and 1 or 2) end

if currentNumber ~= 1 then result = result .. currentNumber .. ' ' .. productSymbol .. ' '   end

local primeLink = frame.args['prime'] and true if currentNumber == number and primeLink then return 'prime' end

result = string.sub(result,1,-4)

local bold = frame.args['bold'] and true local big = frame.args['big'] and true local serif = frame.args['serif'] and true return format(result, bold, big, serif) end

return p