dph-examples-0.6.0.1: examples/smoke/prims/SumSquares/dph/Vector.hs

module Vector where
import qualified Data.Vector.Unboxed	 as V
	
sumSq :: Int -> Double
sumSq num	
	= V.sum 
	$ V.map (\x -> x * x) 
	$ V.map fromIntegral 
	$ V.enumFromTo 1 num