Rosetta Code

Matrix transposition: Difference between revisions

Page Discussion

Matrix transposition (view source)

Revision as of 18:26, 13 May 2011

8 bytes removed ,  13 years ago
m
→‎{{header|Perl 6}}: edit for style
(try to figure out why Euphoria section disappears, resulting in off-by-one edit buttons)
m (→‎{{header|Perl 6}}: edit for style)
Line 1,115:
<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.truncatepick X (^10).rand.truncatepick -> $x, $y { @a[$x][$y] = (^100).rand.truncatepick; };
 
say "original: ";
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/56857"