Indicwiki: 1 revision imported from :alpha:Module:Factorization

2023-07-26T05:33:59Z

1 revision imported from alpha:Module:Factorization

← Older revision	Revision as of 11:03, 26 July 2023
(No difference)

alpha>Indicwiki: Created page with "local p = {} local function powerformat(divisor, power, productSymbol) if power < 1 then return '' elseif power == 1 then return divisor .. ' ' .. productSymbol ....."

2023-02-14T05:25:22Z

Created page with "local p = {} local function powerformat(divisor, power, productSymbol) if power < 1 then return '' elseif power == 1 then return divisor .. ' ' .. productSymbol ....."

New page

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 < 2 or 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 number|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

Module:Factorization - Revision history

Indicwiki: 1 revision imported from :alpha:Module:Factorization

alpha>Indicwiki: Created page with "local p = {} local function powerformat(divisor, power, productSymbol) if power < 1 then return '' elseif power == 1 then return divisor .. ' ' .. productSymbol ....."