根据群的凯莱表计算其中心、换位子群、群元阶的分布、共轭类的小工具（Lua版本）

root@ubuntu:/home/cpptest/lua# ./luatest ZDOfG.lua
N1=    6
D3的中心Z(D_3):    [1]
D3的换位子群(D_3)':    [1,4,5]
D3的群元阶的分布:    [1,3,2,0]
D3每个共轭类:    [[1],[2,3,6],[4,5]]
D3每个共轭类的长度:    [1,2,3]
N1=    8
D4的中心Z(D_4):    [1,4]
D4的换位子群(D_4)':    [1,4]
D4的群元阶的分布:    [1,5,2,0]
D4每个共轭类:    [[1],[2,3],[4],[5,8],[6,7]]
D4每个共轭类的长度:    [1,1,2,2,2]
N1=    8
Q8的中心Z(Q_8):    [1,2]
Q8的换位子群(Q_8)':    [1,2]
Q8的群元阶的分布:    [1,1,6,0]
Q8每个共轭类:    [[1],[2],[3,4],[5,6],[7,8]]
Q8每个共轭类的长度:    [1,1,2,2,2]
C9的凯莱表:    
1 2 3 4 5 6 7 8 9 
2 3 4 5 6 7 8 9 1 
3 4 5 6 7 8 9 1 2 
4 5 6 7 8 9 1 2 3 
5 6 7 8 9 1 2 3 4 
6 7 8 9 1 2 3 4 5 
7 8 9 1 2 3 4 5 6 
8 9 1 2 3 4 5 6 7 
9 1 2 3 4 5 6 7 8 
N1=    9
C9的中心Z(C_9):    [1,2,3,4,5,6,7,8,9]
C9的换位子群(C_9)':    [1]
C9的群元阶的分布:    [1,2,6]
C9每个共轭类:    [[1],[2],[3],[4],[5],[6],[7],[8],[9]]
C9每个共轭类的长度:    [1,1,1,1,1,1,1,1,1]

local function get_len(tb)
  local len = 0
  for k,v in pairs(tb) do
    len= len+1
  end
return len
end

function VStr(a)
    local n=get_len(a)
    local s
    s="["
    for i=1,n,1 do
        s=s..a[i]
        if i<n then
            s=s..","
        end        
    end
    s=s.."]"
    return s
end

local function VStr2(tb)
    local n=get_len(tb)
    local i=0
    local s
    s="["
    for k,v in pairs(tb) do
        i=i+1
        s=s..v
        if i<n then
            s=s..","
        end        
    end
    s=s.."]"
    return s
end

function MStr(a)
    local n=get_len(a)
    local s
    s="["
    for i=1,n,1 do
        s=s.."["
        local ni=get_len(a[i])
        for j=1,ni,1 do
            s=s..a[i][j]
            if j<ni then
                s=s..","
            end
        end
        s=s.."]"<