Matrix transposition: Difference between revisions
Added Quackery.
m (Updated description and link for Fōrmulæ solution) |
(Added Quackery.) |
||
Line 3,645:
Not rows: [1,2,3] -> []
Nothing: [] -> []</pre>
=={{header|Quackery}}==
<lang Quackery> [ ' [ [ ] ]
over 0 peek size of
[] rot
witheach join
witheach
[ dip behead join
nested join ] ] is transpose ( [ --> [ )
' [ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]
dup echo cr cr
transpose dup echo cr cr
transpose echo cr</lang>
{{out}}
<pre>[ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]
[ [ 1 3 5 ] [ 2 4 6 ] ]
[ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]</pre>
=={{header|R}}==
| |||