diff --git a/lib/perl5/Math/Matrix.pm b/lib/perl5/Math/Matrix.pm index 0105845..1894a62 100644 --- a/lib/perl5/Math/Matrix.pm +++ b/lib/perl5/Math/Matrix.pm @@ -244,6 +244,7 @@ use strict; $VERSION = 0.8; use overload + 'x' => 'multiply_scalar', '~' => 'transpose', '+' => 'add', '-' => 'subtract',
And then, voilą:
use Math::Matrix; my $m = 'Math::Matrix'->new([0, 1, 2], [3, 4, 5], [6, 7, 8]); print $m x 2; __END__ Output: 0.00000 2.00000 4.00000 6.00000 8.00000 10.00000 12.00000 14.00000 16.00000
Update: A bit more clever change added to the wishlist.
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
In reply to Re^2: Math::Matrix - Error: Can't locate object method "transpose"
by choroba
in thread Math::Matrix - Error: Can't locate object method "transpose"
by SwaJime
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |