Module:Radix - Revision history

Astaryuu at 06:48, 18 July 2026

2026-07-18T06:48:36Z

← Older revision		Revision as of 06:48, 18 July 2026
Line 31:		Line 31:
	characters = numerals and numerals or "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"		characters = numerals and numerals or "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	-- If abs(radix) > characters.len, return decimal		-- If abs(radix) > characters.len, return decimal
	if math.abs(radix) > ~~characters~~.len then		if math.abs(radix) > string.len(characters) then
	return tostring(decimal)		return tostring(decimal)
	end		end

Astaryuu at 06:46, 18 July 2026

2026-07-18T06:46:55Z

← Older revision		Revision as of 06:46, 18 July 2026
Line 23:		Line 23:
	-- If radix is not an integer: Round to nearest integer for now		-- If radix is not an integer: Round to nearest integer for now
	radix = radix < 0 and math.ceil(radix) or math.floor(radix)		radix = radix < 0 and math.ceil(radix) or math.floor(radix)
	-- If abs(radix) is 1, 0, or ~~> 36~~, return decimal		-- If abs(radix) is 0 or 1, return decimal
	if radix == 0 or math.abs(radix) == 1 ~~or math.abs(radix) > 36~~ then		if radix == 0 or math.abs(radix) == 1 then
	return tostring(decimal)		return tostring(decimal)
	end		end
Line 30:		Line 30:
	-- characters are based on other proglangs' parsing		-- characters are based on other proglangs' parsing
	characters = numerals and numerals or "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"		characters = numerals and numerals or "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
			-- If abs(radix) > characters.len, return decimal
			if math.abs(radix) > characters.len then
			return tostring(decimal)
			end

	-- precision is the number of digits below 1 to use		-- precision is the number of digits below 1 to use

Astaryuu at 01:04, 6 July 2026

2026-07-06T01:04:17Z

← Older revision		Revision as of 01:04, 6 July 2026
Line 49:		Line 49:
	if radix > 0 then decimal = math.abs(decimal) end		if radix > 0 then decimal = math.abs(decimal) end
	integrals = 0		integrals = 0
			nextdigitcarry = false
	while math.abs(digitval) >= math.abs(minpower) do		while math.abs(digitval) >= math.abs(minpower) do
	-- get floor of abs(decimal) / abs (digitval)		-- get floor of abs(decimal) / abs (digitval)
	thisdigit = math.~~floor~~(math.abs(decimal) / math.abs(digitval))		thisdigit = digitval < 0 and math.ceil(math.abs(decimal)/digitval) or math.floor(math.abs(decimal)/digitval)
	-- if i is 1 and thisdigit is 0:		thisdigitsign = digitval / math.floor(digitval)
	-- if radix is negative, add 1 to thisdigit		-- if thisdigit is negative, flip it and set nextdigitcarry to true
			-- otherwise, set it to false
			if nextdigitcarry then
			thisdigit = math.abs(thisdigit) + 1
			if digitval == 1 then thisdigit = thisdigit - 1 end
			nextdigitcarry = true
			else
			nextdigitcarry = false
			end
			-- if i is 1 and thisdigit is 0:
			-- if radix is negative and digitval is positive, add 1 to thisdigit
	-- if radix is positive and maxpower isn't 1, skip		-- if radix is positive and maxpower isn't 1, skip
	add_digit = true		add_digit = true
	if thisdigit == 0 and i == 1 then		if thisdigit == 0 and i == 1 then
	if radix < 0 then		if radix < 0 and digitval > 0 then
	thisdigit = 1		thisdigit = 1
	~~elseif~~ math.abs(maxpower) > 1 then		nextdigitcarry = true
	add_digit = false		else
			if math.abs(maxpower) > 1.0 then
			add_digit = false
			end
	end		end
	end		end
Line 67:		Line 81:
	digits[i] = thisdigit		digits[i] = thisdigit
	-- subtract thisdigit * digitval from decimal		-- subtract thisdigit * digitval from decimal
	decimal = decimal - (thisdigit * digitval)		decimal = decimal - thisdigit * digitval
	if digitval >= 1 then integrals = integrals + 1 end		if digitval >= 1 then integrals = integrals + 1 end
	-- add this digit to assembled string		-- add this digit to assembled string

Astaryuu at 00:32, 6 July 2026

2026-07-06T00:32:38Z

← Older revision		Revision as of 00:32, 6 July 2026
Line 63:		Line 63:
	end		end
	end		end
	~~print ("Adding " .. thisdigit .. " " .. digitval .. "s...")~~
	if add_digit then		if add_digit then
	-- add thisdigit to digits		-- add thisdigit to digits

Astaryuu at 00:32, 6 July 2026

2026-07-06T00:32:21Z

← Older revision		Revision as of 00:32, 6 July 2026
Line 1:		Line 1:
	local r = {}		local r = {}

	r.decimal_to = function(~~num,rad,prec~~)		r.decimal_to = function(frame)
	digits = {}		digits = {}
	digitchars = {}		digitchars = {}

	-- Get number (in base 10)		-- Get number (in base 10)
	decimal = tonumber(~~num~~)		decimal = tonumber(frame.args[1])
	-- If decimal is 0 or 1, return decimal		-- If decimal is 0 or 1, return decimal
	if decimal == 0 or decimal == 1 then		if decimal == 0 or decimal == 1 then
Line 18:		Line 18:

	-- Get radix to convert to		-- Get radix to convert to
	radix = tonumber(~~rad~~)		radix = tonumber(frame.args[2])
	-- sign is equal to sign(decimal) if radix is positive, and 1 otherwise		-- sign is equal to sign(decimal) if radix is positive, and 1 otherwise
	sign = radix > 0 and decimal / math.abs(decimal) or 1		sign = radix > 0 and decimal / math.abs(decimal) or 1
Line 33:		Line 33:
	-- precision is the number of digits below 1 to use		-- precision is the number of digits below 1 to use
	-- if decimal is less than 1/radix ^ precision, return 0		-- if decimal is less than 1/radix ^ precision, return 0
	precision = tonumber(~~prec~~) or 0		precision = tonumber(frame.args[3]) or 0
	minpower = radix ^ (precision * -1)		minpower = radix ^ (precision * -1)
	if math.abs(decimal) < minpower then		if math.abs(decimal) < minpower then

Astaryuu at 00:31, 6 July 2026

2026-07-06T00:31:41Z

← Older revision		Revision as of 00:31, 6 July 2026
Line 1:		Line 1:
	local r = {}		local r = {}

	r.decimal_to = function(~~frame~~)		r.decimal_to = function(num,rad,prec)
	digits = {}		digits = {}
			digitchars = {}

	-- Get number (in base 10)		-- Get number (in base 10)
	decimal = tonumber(~~frame.args[1]~~)		decimal = tonumber(num)
	-- If decimal is 0 or 1, return decimal		-- If decimal is 0 or 1, return decimal
	if decimal == 0 or decimal == 1 then		if decimal == 0 or decimal == 1 then
Line 17:		Line 18:

	-- Get radix to convert to		-- Get radix to convert to
	radix = tonumber(~~frame.args[2]~~)		radix = tonumber(rad)
	-- sign is equal to sign(decimal) if radix is positive, and 1 otherwise		-- sign is equal to sign(decimal) if radix is positive, and 1 otherwise
	sign = radix > 0 and decimal / math.abs(decimal) or 1		sign = radix > 0 and decimal / math.abs(decimal) or 1
Line 32:		Line 33:
	-- precision is the number of digits below 1 to use		-- precision is the number of digits below 1 to use
	-- if decimal is less than 1/radix ^ precision, return 0		-- if decimal is less than 1/radix ^ precision, return 0
	precision = tonumber(~~frame.args[3]~~) or 0		precision = tonumber(prec) or 0
	minpower = radix ^ (precision * -1)		minpower = radix ^ (precision * -1)
	if math.abs(decimal) < minpower then		if math.abs(decimal) < minpower then
Line 39:		Line 40:

	-- maxpower calculation		-- maxpower calculation
	maxpower = math.ceil(math.log(math.abs(decimal))/math.log(math.abs(radix))) ~~^ radix~~		maxpower = radix ^ math.ceil(math.log(math.abs(decimal + 0.0))/math.log(math.abs(radix + 0.0)))
	-- if decimal < 0 then maxpower should be 1		-- if decimal < 0 then maxpower should be 1

Line 62:		Line 63:
	end		end
	end		end
			print ("Adding " .. thisdigit .. " " .. digitval .. "s...")
	if add_digit then		if add_digit then
	-- add thisdigit to digits		-- add thisdigit to digits
Line 69:		Line 71:
	if digitval >= 1 then integrals = integrals + 1 end		if digitval >= 1 then integrals = integrals + 1 end
	-- add this digit to assembled string		-- add this digit to assembled string
			i = i + 1
	end		end
	digitval = digitval / radix		digitval = digitval / radix
	~~i = i + 1~~
	end		end

Line 80:		Line 82:
	-- assemble digits		-- assemble digits
	separators = 0		separators = 0
	distance = math.abs(radix) <= 6 and 3 ~~or 4~~		distance = math.abs(radix) <= 6 and 4 or 3
	for j,digit in ipairs(digits) do		for j,digit in ipairs(digits) do
	~~ret~~ = ~~ret ..~~ string.sub(characters, digit+1, digit+1)		digitchars[j+separators] = string.sub(characters, digit+1, digit+1)
	-- when integrals - j is a positive multiple of distance		-- when integrals - j is a positive multiple of distance
	if format_output then		if format_output then
Line 88:		Line 90:
	-- add "," and 1 to separators		-- add "," and 1 to separators
	separators = separators + 1		separators = separators + 1
	~~ret~~ = ~~ret ..~~ thousands		digitchars[j+separators] = thousands
	end		end
	end		end
	-- when j equals integrals		-- when j equals integrals and precision > 0
	if j == integrals and precision > 0 then		if j == integrals and precision > 0 then
	-- add "." and 1 to separators		-- add "." and 1 to separators
	separators = separators + 1		separators = separators + 1
	~~ret~~ = ~~ret ..~~ point		digitchars[j+separators] = point
	end		end
	end		end

			-- assemble final number
			for k,character in ipairs(digitchars) do
			ret = ret .. character
			end

	return ret		return ret
	end		end

	return r		return r

Astaryuu: nuke another infinite loop lmao

2026-07-06T00:11:58Z

nuke another infinite loop lmao

← Older revision		Revision as of 00:11, 6 July 2026
Line 68:		Line 68:
	decimal = decimal - (thisdigit * digitval)		decimal = decimal - (thisdigit * digitval)
	if digitval >= 1 then integrals = integrals + 1 end		if digitval >= 1 then integrals = integrals + 1 end
	~~digitval = digitval / radix~~
	~~i = i + 1~~
	-- add this digit to assembled string		-- add this digit to assembled string
	end		end
			digitval = digitval / radix
			i = i + 1
	end		end

Astaryuu at 21:02, 5 July 2026

2026-07-05T21:02:43Z

← Older revision		Revision as of 21:02, 5 July 2026
Line 58:		Line 58:
	if radix < 0 then		if radix < 0 then
	thisdigit = 1		thisdigit = 1
	elseif maxpower > 1 then		elseif math.abs(maxpower) > 1 then
	add_digit = false		add_digit = false
	end		end

Astaryuu at 20:58, 5 July 2026

2026-07-05T20:58:29Z

← Older revision		Revision as of 20:58, 5 July 2026
Line 34:		Line 34:
	precision = tonumber(frame.args[3]) or 0		precision = tonumber(frame.args[3]) or 0
	minpower = radix ^ (precision * -1)		minpower = radix ^ (precision * -1)
	if decimal < minpower then		if math.abs(decimal) < minpower then
	return "0"		return "0"
	end		end

Astaryuu at 20:08, 5 July 2026

2026-07-05T20:08:13Z

← Older revision		Revision as of 20:08, 5 July 2026
Line 28:		Line 28:

	-- characters are based on other proglangs' parsing		-- characters are based on other proglangs' parsing
	characters = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"		characters = numerals and numerals or "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

	-- precision is the number of digits below 1 to use		-- precision is the number of digits below 1 to use