Module:ArrayList - Revision history

Bungle: fix

2025-02-02T19:13:56Z

fix

← Previous revision		Revision as of 19:13, 2 February 2025
Line 177:		Line 177:
	end		end

	table.sort(items, function(a, b)		table.sort(items, function(a, b)
	-- ~~First sort by~~ ~~group.~~		-- compare groups
	if a.group ~= b.group then		if a.group ~= b.group then
	return a.group < b.group		return a.group < b.group
	end		end

⚫	-- ~~For~~ numbers (group 1), ~~sort~~ ~~numerically.~~
	if a.group ~~== 1 then~~		-- if both items in same group, decide
			-- comparison based on alpha_priority flag
⚫	return a.num < b.num
			if alpha_priority then
	-- For alphabetic items (group 2), sort case‐insensitively.
	~~elseif~~ a.group == 2 ~~then~~		-- if letters come first, group 1 = letters
			if a.group == 1 then -- Both are alphabetic.
	return a.raw:lower() < b.raw:lower()		return a.raw:lower() < b.raw:lower()
⚫	else
			elseif a.group == 2 then -- Both are numeric.
	-- For special items (group 3) keep the original order.
	return a.~~orig~~ < b.~~orig~~		return a.num < b.num
			else -- Group 3: special items.
⚫	end
			return a.orig < b.orig
⚫	end)
		⚫	end
		⚫	else
		⚫	-- if numbers first, group 1 = numbers
			if a.group == 1 then -- Both are numeric.
		⚫	return a.num < b.num
			elseif a.group == 2 then -- Both are alphabetic.
			return a.raw:lower() < b.raw:lower()
			else -- Group 3: special items.
			return a.orig < b.orig
			end
		⚫	end
			end)

	-- Reverse order if requested		-- Reverse order if requested

Bungle: attempt to add array sorting function

2025-02-02T19:05:17Z

attempt to add array sorting function

@@ Line 95: / Line 95: @@
     local delimiter = frame.args[3] or ","
     local operation = frame.args[4]
     delimiter = escapePattern(delimiter)
     str = str:gsub("^%s*" .. delimiter .. "%s*(.-)%s*" .. delimiter .. "$", "%1")
@@ Line 127: / Line 126: @@
         return "void:unsupported"
     end
 end

Bungle: refine min/max code

2025-02-01T22:05:02Z

refine min/max code

← Previous revision		Revision as of 22:05, 1 February 2025
Line 95:		Line 95:
	local delimiter = frame.args[3] or ","		local delimiter = frame.args[3] or ","
	local operation = frame.args[4]		local operation = frame.args[4]
			local nth = tonumber(frame.args[5]) -- Optional Nth occurrence argument
	delimiter = escapePattern(delimiter)		delimiter = escapePattern(delimiter)
	str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")		str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")
Line 114:		Line 115:
	end		end
	return total		return total
	elseif operation == "min" then		elseif operation == "min" or operation == "max" then
	local ~~min~~ = items[1]		local extreme = items[1]
			local comparison = operation == "min" and function(a, b) return a < b end or function(a, b) return a > b end
	for _, num in ipairs(items) do		for _, num in ipairs(items) do
	if num < min then
			if comparison(num, extreme) then
	min = num
	~~end~~		extreme = num
	end		end
			end
	return min
			return extreme
	elseif operation == "max" then
	local max = items[1]
	for _, num in ipairs(items) do
	if num > max then
	max = num
	end
	end
	return max
	else		else
	return "void:unsupported"		return "void:unsupported"

Bungle: default behaviour to strip leading or trailing delimiters

2025-01-29T22:13:12Z

default behaviour to strip leading or trailing delimiters

@@ Line 25: / Line 25: @@
     local str = frame.args[2] or ""
     local delimiter = frame.args[3] or ","
     delimiter = escapePattern(delimiter)
     local count = select(2, str:gsub(delimiter, ""))
     return count + 1

Bungle: another try

2024-07-26T14:06:58Z

another try

← Previous revision		Revision as of 14:06, 26 July 2024
Line 17:		Line 17:
	return p[func](frame)		return p[func](frame)
	else		else
	return "void:~~nofunction:~~ " .. tostring(func)		return "void:notfound " .. tostring(func)
	end		end
	end		end
Line 26:		Line 26:
	local delimiter = frame.args[3] or ","		local delimiter = frame.args[3] or ","
	delimiter = escapePattern(delimiter)		delimiter = escapePattern(delimiter)

	str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")		str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")
	local count = select(2, str:gsub(delimiter, ""))		local count = select(2, str:gsub(delimiter, ""))
Line 38:		Line 37:
	local index = frame.args[4]		local index = frame.args[4]
	delimiter = escapePattern(delimiter)		delimiter = escapePattern(delimiter)

	-- Remove leading and trailing delimiters and whitespace
	str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")		str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")

	local items = {}		local items = {}
	for item in string.gmatch(str, "([^" .. delimiter .. "]+)") do		for item in string.gmatch(str, "([^" .. delimiter .. "]+)") do
	table.insert(items, trim(item))		table.insert(items, trim(item))
	end		end

	if index == "last" then		if index == "last" then
	index = #items		index = #items
Line 57:		Line 52:
	return "void:invalid"		return "void:invalid"
	end		end
		⚫	return items[index] or "void:outrange"

⚫	return items[index] or "void:~~outofrange~~"
	end		end

Line 68:		Line 62:
	local occurrence = tonumber(frame.args[5])		local occurrence = tonumber(frame.args[5])
	delimiter = escapePattern(delimiter)		delimiter = escapePattern(delimiter)

	-- Remove leading and trailing delimiters and whitespace
	str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")		str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")

	local positions = {}		local positions = {}
	local index = 1		local index = 1

	-- Iterate over items split by the delimiter
	for subitem in string.gmatch(str, "([^" .. delimiter .. "]+)") do		for subitem in string.gmatch(str, "([^" .. delimiter .. "]+)") do
	subitem = trim(subitem)		subitem = trim(subitem)
Line 83:		Line 72:
	index = index + 1		index = index + 1
	end		end

	if not occurrence then		if not occurrence then
	~~-- Return~~ positions ~~joined~~ by ~~the~~ ~~delimiter~~, ~~if positions~~ ~~are~~ ~~found~~		return #positions > 0 and table.concat(positions, ",") or "void:nomatch"
	return #positions > 0 and table.concat(positions, delimiter) or "void:nomatch"
	else		else
	-- Return the specified occurrence or -1 if not found
	return positions[occurrence] or -1		return positions[occurrence] or -1
	end		end
Line 99:		Line 85:
	local operation = frame.args[4]		local operation = frame.args[4]
	delimiter = escapePattern(delimiter)		delimiter = escapePattern(delimiter)

	-- Remove leading and trailing delimiters and whitespace
	str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")		str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")

	local items = {}		local items = {}
	for item in string.gmatch(str, "([^" .. delimiter .. "]+)") do		for item in string.gmatch(str, "([^" .. delimiter .. "]+)") do
Line 112:		Line 95:
	end		end
	end		end

	if #items == 0 then		if #items == 0 then
	return ~~null~~		return "void:nonumeric"
		⚫	elseif operation == "sum" then
	end

⚫	if operation == "sum" then
	local total = 0		local total = 0
	for _, num in ipairs(items) do		for _, num in ipairs(items) do

Bungle: delimiter fixes

2024-07-26T13:52:49Z

delimiter fixes

← Previous revision		Revision as of 13:52, 26 July 2024
Line 4:		Line 4:
	local function trim(s)		local function trim(s)
	return s:match("^%s(.-)%s$")		return s:match("^%s(.-)%s$")
			end

			-- Escape special characters in the delimiter for pattern matching
			local function escapePattern(str)
			return str:gsub("([%^%$%(%)%%%.%[%]%*%+%?%-])", "%%%1")
	end		end

Line 20:		Line 25:
	local str = frame.args[2] or ""		local str = frame.args[2] or ""
	local delimiter = frame.args[3] or ","		local delimiter = frame.args[3] or ","
			delimiter = escapePattern(delimiter)

	str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")		str = str:gsub("^%s" .. delimiter .. "%s(.-)%s*" .. delimiter .. "$", "%1")
Line 31:		Line 37:
	local delimiter = frame.args[3] or ","		local delimiter = frame.args[3] or ","
	local index = frame.args[4]		local index = frame.args[4]
			delimiter = escapePattern(delimiter)

	-- Remove leading and trailing delimiters and whitespace		-- Remove leading and trailing delimiters and whitespace
Line 60:		Line 67:
	local item = frame.args[4] or ""		local item = frame.args[4] or ""
	local occurrence = tonumber(frame.args[5])		local occurrence = tonumber(frame.args[5])
			delimiter = escapePattern(delimiter)

	-- Remove leading and trailing delimiters and whitespace		-- Remove leading and trailing delimiters and whitespace
Line 69:		Line 77:
	-- Iterate over items split by the delimiter		-- Iterate over items split by the delimiter
	for subitem in string.gmatch(str, "([^" .. delimiter .. "]+)") do		for subitem in string.gmatch(str, "([^" .. delimiter .. "]+)") do
	subitem = trim(subitem) ~~-- Trim whitespace~~		subitem = trim(subitem)
	if subitem == item then		if subitem == item then
	table.insert(positions, index)		table.insert(positions, index)
Line 90:		Line 98:
	local delimiter = frame.args[3] or ","		local delimiter = frame.args[3] or ","
	local operation = frame.args[4]		local operation = frame.args[4]
			delimiter = escapePattern(delimiter)

	-- Remove leading and trailing delimiters and whitespace		-- Remove leading and trailing delimiters and whitespace

Bungle: add main function

2024-07-26T12:00:05Z

add main function

← Previous revision		Revision as of 12:00, 26 July 2024
Line 4:		Line 4:
	local function trim(s)		local function trim(s)
	return s:match("^%s(.-)%s$")		return s:match("^%s(.-)%s$")
			end

			-- Main function to call other functions dynamically
			function p.main(frame)
			local func = frame.args[1]
			if p[func] then
			return p[func](frame)
			else
			return "void:nofunction: " .. tostring(func)
			end
	end		end

Line 38:		Line 48:
	end		end
	else		else
	return "~~Invalid index~~"		return "void:invalid"
	end		end

	return items[index] or "~~Index out of range~~"		return items[index] or "void:outofrange"
	end		end

Line 68:		Line 78:
	if not occurrence then		if not occurrence then
	-- Return positions joined by the delimiter, if positions are found		-- Return positions joined by the delimiter, if positions are found
	return #positions > 0 and table.concat(positions, delimiter) or "~~No match found~~"		return #positions > 0 and table.concat(positions, delimiter) or "void:nomatch"
	else		else
	-- Return the specified occurrence or -1 if not found		-- Return the specified occurrence or -1 if not found

Bungle: create lua module for array lists function

2024-07-26T11:36:16Z

create lua module for array lists function

New page

local p = {}

-- Helper function to trim whitespace
local function trim(s)
return s:match("^%s*(.-)%s*$")
end

-- Count occurrences of delimiter in a string
function p.count(frame)
local str = frame.args[2] or ""
local delimiter = frame.args[3] or ","

str = str:gsub("^%s*" .. delimiter .. "%s*(.-)%s*" .. delimiter .. "$", "%1")
local count = select(2, str:gsub(delimiter, ""))
return count + 1
end

-- Get the Nth item in a delimited string, supporting negative indices
function p.get(frame)
local str = frame.args[2] or ""
local delimiter = frame.args[3] or ","
local index = frame.args[4]

-- Remove leading and trailing delimiters and whitespace
str = str:gsub("^%s*" .. delimiter .. "%s*(.-)%s*" .. delimiter .. "$", "%1")

local items = {}
for item in string.gmatch(str, "([^" .. delimiter .. "]+)") do
table.insert(items, trim(item))
end

if index == "last" then
index = #items
elseif index and tonumber(index) then
index = tonumber(index)
if index < 0 then
index = #items + index + 1
end
else
return "Invalid index"
end

return items[index] or "Index out of range"
end

-- Find the position of the Nth occurrence of a matching item in a delimited string
function p.pos(frame)
local str = frame.args[2] or ""
local delimiter = frame.args[3] or ","
local item = frame.args[4] or ""
local occurrence = tonumber(frame.args[5])

-- Remove leading and trailing delimiters and whitespace
str = str:gsub("^%s*" .. delimiter .. "%s*(.-)%s*" .. delimiter .. "$", "%1")

local positions = {}
local index = 1

-- Iterate over items split by the delimiter
for subitem in string.gmatch(str, "([^" .. delimiter .. "]+)") do
subitem = trim(subitem) -- Trim whitespace
if subitem == item then
table.insert(positions, index)
end
index = index + 1
end

if not occurrence then
-- Return positions joined by the delimiter, if positions are found
return #positions > 0 and table.concat(positions, delimiter) or "No match found"
else
-- Return the specified occurrence or -1 if not found
return positions[occurrence] or -1
end
end

-- Perform mathematical operations on numeric array items
function p.math(frame)
local str = frame.args[2] or ""
local delimiter = frame.args[3] or ","
local operation = frame.args[4]

-- Remove leading and trailing delimiters and whitespace
str = str:gsub("^%s*" .. delimiter .. "%s*(.-)%s*" .. delimiter .. "$", "%1")

local items = {}
for item in string.gmatch(str, "([^" .. delimiter .. "]+)") do
local number = tonumber(trim(item))
if number then
table.insert(items, number)
else
return "void:isalpha"
end
end

if #items == 0 then
return null
end

if operation == "sum" then
local total = 0
for _, num in ipairs(items) do
total = total + num
end
return total
elseif operation == "min" then
local min = items[1]
for _, num in ipairs(items) do
if num < min then
min = num
end
end
return min
elseif operation == "max" then
local max = items[1]
for _, num in ipairs(items) do
if num > max then
max = num
end
end
return max
else
return "void:unsupported"
end
end

return p