A pugs version of transpose..
use v6;
my $matrix = [
[85,34,15,38,53,80],
[73,38,31,92,17,96],
[89,10,31,96,35,60],
[45,68,23,90,33,12],
[99,100,27,52,25,28],
[85,50,75,28,73,4],
[45,8,45,48,55,66],
[57,10,5,4,43,20],
[61,36,1,22,7,74],
[37,16,71,32,81,42],
];
sub print_matrix ($matrix) {
for ($matrix) -> $row {
say $row.join(" ");
}
}
sub transpose ($matrix) {
my $new_matrix;
my $width = $matrix[0].elems - 1;
my $height = $matrix.elems - 1;
for (0 .. $width) -> $y {
for (0 .. $height) -> $x {
$new_matrix[$y][$x] = $matrix[$x][$y];
}
}
return $new_matrix;
}
say "before";
print_matrix($matrix);
say "after";
print_matrix( transpose $matrix );
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.