Matrix transposition: Difference between revisions

Content added Content deleted

Inline

@@ Line 864: / Line 864: @@
                     linrec .
 </lang>
+=={{header|Lua}}==
+<lang 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</lang>
 =={{header|Mathematica}}==