Lua字母异位词分组：排序键的桶归组

local function groupAnagrams(words)
    local buckets = {}
    for _, w in ipairs(words) do
        local chars = {}
        for c in w:gmatch("%a") do
            chars[#chars + 1] = c
        end
        table.sort(chars)
        local key = table.concat(chars)
        buckets[key] = buckets[key] or {}
        table.insert(buckets[key], w)
    end
    return buckets
end

local words = {"eat", "tea", "tan", "ate", "nat", "bat"}
local buckets = groupAnagrams(words)
local p = getplayerbyname("grp01")
for key, group in pairs(buckets) do
    sendmsg(p, 1, key .. " → "
        .. table.concat(group, " "))
end