Matrix transposition: Difference between revisions
m
→{{header|Perl 6}}: mention shaped arrays
m (→Library gonum/matrix: library churn) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: mention shaped arrays) |
||
Line 2,346:
=={{header|Perl 6}}==
{{
<lang perl6># Transposition can be done with the reduced zip
# on list-of-lists data structures
# For native shaped arrays, a more traditional procedure of copying item-by-item
# Here the resulting matrix is also a native shaped array
my @a[3;4] =
[
[<A B C D>],
[<E F G H>],
[<I J K L>],
];
(my $n, my $m) = @a.shape;
my @b[$m;$n];
for ^$m X ^$n -> (\i, \j) {
@b[i;j] = @a[j;i];
}
say @b;</lang>
{{output}}
<pre>((A
[[A E I] [B F J] [C G K] [D H L]]</pre>
=={{header|Phix}}==
| |||