Matrix transposition: Difference between revisions
Content added Content deleted
(→{{header|Excel}}: Added an Excel example.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 313: | Line 313: | ||
{{Out}} |
{{Out}} |
||
<lang AppleScript>{{1, 4, 7, 10}, {2, 5, 8, 11}, {3, 6, 9, 12}}</lang> |
<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}}== |
=={{header|AutoHotkey}}== |