Reduced row echelon form: Difference between revisions
m
→{{header|Perl}}: added sample calculation
No edit summary |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: added sample calculation) |
||
Line 2,598:
=={{header|Perl}}==
{{trans|Python}}
Note that the function defined here takes an array reference,
<lang perl>sub rref
{our @m; local *m = shift;
Line 2,623:
$_ -= $lv * $mr[++$n] foreach @{ $m[$i] };}
++$lead;}}
sub display { join("\n" => map join(" " => map(sprintf("%4d", $_), @$_)), @{+shift})."\n" }
@m =
(
[ 1, 2, -1, -4 ],
[ 2, 3, -1, -11 ],
[ -2, 0, -3, 22 ]
);
rref(\@m);
print display(\@m);</lang>
{{out}}
<pre> 1 0 0 -8
0 1 0 1
0 0 1 -2</pre>
=={{header|Perl 6}}==
| |||