Anonymous user
Matrix transposition: Difference between revisions
added perl
(added perl) |
|||
Line 1,001:
push(@transposed, [map $_->[$j], @m]);
}</lang>
=={{header|Perl 6}}==
<lang perl6>sub transpose(@m)
{
my @t;
for ^@m X ^@m[0] -> $x, $y { @t[$y][$x]=@m[$x][$y]};
return @t;
}
# creates a random matrix
my @a;
for ^10.rand.truncate X ^10.rand.truncate -> $x, $y { @a[$x][$y]=100.rand.truncate; };
say "original: ";
.perl.say for @a;
my @b = transpose(@a);
say "transposed: ";
.perl.say for @b;</lang>
=={{header|PHP}}==
| |||