add operator <# (vector x matrix)

2 files changed, 7 insertions, 2 deletions

diff --git a/packages/base/src/Data/Packed/Numeric.hs b/packages/base/src/Data/Packed/Numeric.hs
index b2395f2..6d62f22 100644
--- a/packages/base/src/Data/Packed/Numeric.hs
+++ b/packages/base/src/Data/Packed/Numeric.hs
@@ -39,7 +39,7 @@ module Data.Packed.Numeric (
     step, cond, find, assoc, accum,
     Transposable(..), Linear(..),
     -- * Matrix product
-    Product(..), udot, dot, (<·>), (#>), app,
+    Product(..), udot, dot, (<·>), (#>), (<#), app,
     Mul(..),
     (<.>),
     optimiseMult,
@@ -141,6 +141,11 @@ fromList [140.0,320.0]
 app :: Numeric t => Matrix t -> Vector t -> Vector t
 app = (#>)
 
+infixl 8 <#
+-- | dense vector-matrix product
+(<#) :: Numeric t => Vector t -> Matrix t -> Vector t
+(<#) = vXm
+
 --------------------------------------------------------------------------------
 
 class Mul a b c | a b -> c where
diff --git a/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs b/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs
index 677f9ee..a640351 100644
--- a/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs
@@ -47,7 +47,7 @@ module Numeric.LinearAlgebra.HMatrix (
     -- ** dot
     dot, (<·>),
     -- ** matrix-vector
-    app, (#>), (!#>),
+    app, (#>), (<#), (!#>),
     -- ** matrix-matrix
     mul, (<>),
     -- | The matrix product is also implemented in the "Data.Monoid" instance, where