Module:Sandbox/Jackmcbarn

local p = {}

local function split(str, delim)
	local retval, endpos = {}, 1
	for elem, pos in str:gmatch('(.-)' .. delim .. '()') do
		table.insert(retval, elem)
		endpos = pos
	end
	table.insert(retval, str:sub(endpos))
	return retval
end

function p.main(frame)
	local list = mw.text.trim(frame.args[1])
	local listEntries = split(list, '\n')
	table.sort(listEntries, function(a,b)
		local aWords, bWords = split(a, ' ')[2], split(b, ' ')[2]
		return (aWords[2] .. aWords[1]) < (bWords[2] .. bWords[1])
	end)
	return table.concat(listEntries, '\n')
end

return p