> module VectorOperations
>  (innerProduct, norm)
>  where

inner product of two vectors

>  innerProduct :: Num num => [num] -> [num] -> num
>  innerProduct xs ys = sum(zipWith (*) xs ys)


magnitude of a vector

>  norm :: RealFloat num => [num] -> num
>  norm xs = sqrt(innerProduct xs xs)