From 0500032a1d954058b94cf9a0fa2a662e5666a526 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 4 Oct 2015 14:16:57 +0200 Subject: update examples --- examples/vector.hs | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 examples/vector.hs (limited to 'examples/vector.hs') diff --git a/examples/vector.hs b/examples/vector.hs deleted file mode 100644 index f531cbd..0000000 --- a/examples/vector.hs +++ /dev/null @@ -1,31 +0,0 @@ --- conversion to/from Data.Vector.Storable --- from Roman Leshchinskiy "vector" package --- --- In the future Data.Packed.Vector will be replaced by Data.Vector.Storable - -------------------------------------------- - -import Numeric.LinearAlgebra as H -import Data.Packed.Development(unsafeFromForeignPtr, unsafeToForeignPtr) -import Foreign.Storable -import qualified Data.Vector.Storable as V - -fromVector :: Storable t => V.Vector t -> H.Vector t -fromVector v = unsafeFromForeignPtr p i n where - (p,i,n) = V.unsafeToForeignPtr v - -toVector :: Storable t => H.Vector t -> V.Vector t -toVector v = V.unsafeFromForeignPtr p i n where - (p,i,n) = unsafeToForeignPtr v - -------------------------------------------- - -v = V.slice 5 10 (V.fromList [1 .. 10::Double] V.++ V.replicate 10 7) - -w = subVector 2 3 (linspace 5 (0,1)) :: Vector Double - -main = do - print v - print $ fromVector v - print w - print $ toVector w -- cgit v1.2.3