24 lines
404 B
Lua
24 lines
404 B
Lua
function Transpose( m )
|
|
local res = {}
|
|
|
|
for i = 1, #m[1] do
|
|
res[i] = {}
|
|
for j = 1, #m do
|
|
res[i][j] = m[j][i]
|
|
end
|
|
end
|
|
|
|
return res
|
|
end
|
|
|
|
-- a test for Transpose(m)
|
|
mat = { { 1, 2, 3 }, { 4, 5, 6 } }
|
|
erg = Transpose( mat )
|
|
for i = 1, #erg do
|
|
for j = 1, #erg[1] do
|
|
io.write( erg[i][j] )
|
|
io.write( " " )
|
|
end
|
|
io.write( "\n" )
|
|
end
|