Lua三阶幻方：恒定幻和的构造校验

local function magicOK(m)
    for i = 1, 3 do
        if m[i][1] + m[i][2] + m[i][3] ~= 15 then
            return false
        end
    end
    for j = 1, 3 do
        if m[1][j] + m[2][j] + m[3][j] ~= 15 then
            return false
        end
    end
    return m[1][1] + m[2][2] + m[3][3] == 15
        and m[1][3] + m[2][2] + m[3][1] == 15
end

local base = {{2, 7, 6}, {9, 5, 1}, {4, 3, 8}}
local function rotate(m)
    local r = {}
    for i = 1, 3 do
        r[i] = {m[3][i], m[2][i], m[1][i]}
    end
    return r
end
local p = getplayerbyname("magic01")
sendmsg(p, 1, "模板合法 " .. tostring(magicOK(base)))
sendmsg(p, 1, "旋转合法 "
    .. tostring(magicOK(rotate(base))))