Matrix transposition: Difference between revisions
Added Arturo implementation
(→{{header|Excel}}: Added an Excel example.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 313:
{{Out}}
<lang AppleScript>{{1, 4, 7, 10}, {2, 5, 8, 11}, {3, 6, 9, 12}}</lang>
=={{header|Arturo}}==
<lang rebol>transpose: function [a][
X: size a
Y: size first a
result: array.of: @[Y X] 0
loop 0..X-1 'i [
loop 0..Y-1 'j [
result\[j]\[i]: a\[i]\[j]
]
]
return result
]
arr: [
[ 0 1 2 3 4 ]
[ 5 6 7 8 9 ]
[ 1 0 0 0 42 ]
]
loop arr 'row -> print row
print "-------------"
loop transpose arr 'row -> print row</lang>
{{out}}
<pre>0 1 2 3 4
5 6 7 8 9
1 0 0 0 42
-------------
0 5 1
1 6 0
2 7 0
3 8 0
4 9 42</pre>
=={{header|AutoHotkey}}==
|