"Rotating" tables in Lua?

function transpose(m)
   local rotated = {}
   for c, m_1_c in ipairs(m[1]) do
      local col = {m_1_c}
      for r = 2, #m do
         col[r] = m[r][c]
      end
      table.insert(rotated, col)
   end
   return rotated
end

function rotate_CCW_90(m)
   local rotated = {}
   for c, m_1_c in ipairs(m[1]) do
      local col = {m_1_c}
      for r = 2, #m do
         col[r] = m[r][c]
      end
      table.insert(rotated, 1, col)
   end
   return rotated
end

function rotate_180(m)
   return rotate_CCW_90(rotate_CCW_90(m))
end

function rotate_CW_90(m)
   return rotate_CCW_90(rotate_CCW_90(rotate_CCW_90(m)))
end

使用样例：

local m1 = {
  {1,1,1},
  {1,0,0},
  {1,1,1},
  {1,1,0}
}

local m2 = rotate_CCW_90(m1)
-- m2现在是{
--    {1, 0, 1, 0},
--    {1, 0, 1, 1},
--    {1, 1, 1, 1}
-- }

local m3 = transpose(m1)
-- m3现在是{
--    {1, 1, 1, 1},
--    {1, 0, 1, 1},
--    {1, 0, 1, 0}
-- }

你想要转置：

function transponieren (udata)
    local tdata = {}
    for y, xs in pairs (udata) do
        for x, value in pairs (xs) do
            tdata[x]=tdata[x] or {}
            tdata[x][y]=value
        end
    end
    return tdata
end

local udata = {
    {1, 0, 0.9},
    {0.9, 0.5, 1},
    {0, 0.1, 1},
}
udata = transponieren (udata) -- 转置后的结果