Matrix transposition: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: Removed an entry (pending reassurances) which appears to violate copyright.) |
(Added 11l implementation) |
||
Line 2: | Line 2: | ||
[[wp:Transpose|Transpose]] an arbitrarily sized rectangular [[wp:Matrix (mathematics)|Matrix]]. |
[[wp:Transpose|Transpose]] an arbitrarily sized rectangular [[wp:Matrix (mathematics)|Matrix]]. |
||
<br><br> |
<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}}== |
=={{header|360 Assembly}}== |
||
<lang 360asm>... |
<lang 360asm>... |