Lua有效的字母异位词：计数组比对

local function isAnagram(s, t)
    if #s ~= #t then return false end
    local cnt = {}
    for i = 1, 26 do cnt[i] = 0 end
    for i = 1, #s do
        local a = s:byte(i) - 96
        local b = t:byte(i) - 96
        cnt[a] = cnt[a] + 1
        cnt[b] = cnt[b] - 1
    end
    for i = 1, 26 do
        if cnt[i] ~= 0 then return false end
    end
    return true
end

local function isAnagramFast(s, t)
    if #s ~= #t then return false end
    local cnt = {}
    for i = 1, #s do
        local a = s:byte(i) - 96
        cnt[a] = (cnt[a] or 0) + 1
        local b = t:byte(i) - 96
        cnt[b] = (cnt[b] or 0) - 1
    end
    for i = 1, 26 do
        if cnt[i] ~= 0 then return false end
    end
    return true
end
local p = getplayerbyname("ana01")
sendmsg(p, 1, tostring(isAnagramFast("listen", "silent")))