Anonymous user
Matrix transposition: Difference between revisions
Added 11l implementation
(→{{header|Haskell}}: Removed an entry (pending reassurances) which appears to violate copyright.) |
(Added 11l implementation) |
||
Line 2:
[[wp:Transpose|Transpose]] an arbitrarily sized rectangular [[wp:Matrix (mathematics)|Matrix]].
<br><br>
=={{header|11l}}==
<lang 11l>F transpose(&matrix)
V toRet = [[0] * matrix.len] * matrix[0].len
L(row) (0 .< matrix.len)
L(col) (0 .< matrix[row].len)
toRet[col][row] = matrix[row][col]
R toRet
V m = [[1, 2, 3, 4], [5, 6, 7, 8], [9, 10, 11, 12]]
print("Original")
print(m)
print("After Transposition")
print(transpose(&m))</lang>
{{out}}
<pre>
Original
[[1, 2, 3, 4], [5, 6, 7, 8], [9, 10, 11, 12]]
After Transposition
[[1, 5, 9], [2, 6, 10], [3, 7, 11], [4, 8, 12]]
</pre>
=={{header|360 Assembly}}==
<lang 360asm>...
| |||