Lua摩斯码：点划符号的编码互转

local MORSE = {A = ".-", B = "-...", C = "-.-.", D = "-..",
    E = ".", F = "..-.", G = "--.", H = "....", I = "..",
    J = ".---", K = "-.-", L = ".-..", M = "--", N = "-.",
    O = "---", P = ".--.", Q = "--.-", R = ".-.", S = "...",
    T = "-", U = "..-", V = "...-", W = ".--", X = "-..-",
    Y = "-.--", Z = "--.."}
local function encode(s)
    local out = {}
    for ch in string.upper(s):gmatch("%a") do
        out[#out + 1] = MORSE[ch]
    end
    return table.concat(out, " ")
end

local function decode(m)
    local back = {}
    for k, v in pairs(MORSE) do back[v] = k end
    local out = {}
    for code in m:gmatch("[%.-]+") do
        out[#out + 1] = back[code] or "?"
    end
    return table.concat(out)
end
local p = getplayerbyname("morse01")
sendmsg(p, 1, encode("sos") .. " 还原 "
    .. decode(encode("sos")))