From e1b4cc06a5f98e576524b37ad0d9132f0678d722 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 14 Nov 2008 11:01:14 +0000 Subject: constantD --- lib/Data/Packed/Vector.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/Data/Packed/Vector.hs') diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs index 0bbbc34..b85f0bd 100644 --- a/lib/Data/Packed/Vector.hs +++ b/lib/Data/Packed/Vector.hs @@ -19,12 +19,13 @@ module Data.Packed.Vector ( subVector, join, constant, linspace, vectorMax, vectorMin, vectorMaxIndex, vectorMinIndex, - liftVector, liftVector2 + liftVector, liftVector2, + foldLoop, foldVector, foldVectorG, mapVector ) where import Data.Packed.Internal import Numeric.GSL.Vector -import Data.Packed.ST +-- import Data.Packed.ST {- | Creates a real vector containing a range of values: @@ -55,4 +56,5 @@ vectorMinIndex = round . toScalarR MinIdx 7 |> [2.0,2.0,2.0,2.0,2.0,2.0,2.0]@ -} constant :: Element a => a -> Int -> Vector a -constant x n = runSTVector (newVector x n) +-- constant x n = runSTVector (newVector x n) +constant = constantD -- about 2x faster -- cgit v1.2.3