From c1441ca0451f34e5615b3861175f9eef312dfc62 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 9 Sep 2010 07:55:32 +0000 Subject: joined Vectors and Product --- lib/Numeric/Vector.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Numeric/Vector.hs') diff --git a/lib/Numeric/Vector.hs b/lib/Numeric/Vector.hs index 9427243..7ecd0eb 100644 --- a/lib/Numeric/Vector.hs +++ b/lib/Numeric/Vector.hs @@ -99,7 +99,7 @@ linspace n (a,b) = addConstant a $ scale s $ fromList [0 .. fromIntegral n-1] where s = (b-a)/fromIntegral (n-1) -- | Dot product: @u \<.\> v = dot u v@ -(<.>) :: Vectors Vector t => Vector t -> Vector t -> t +(<.>) :: Product t => Vector t -> Vector t -> t infixl 7 <.> (<.>) = dot -- cgit v1.2.3