--iterate :: (a -> a) -> a -> [a]
--iterate f x = x : iterate f (f x)
--
innerProd :: Num a => [a] -> [a] -> a
innerProd xs ys = sum(zipWith (*) xs ys)
innerProd :: Num a => [a] -> [a] -> a
innerProd xs ys = sum(zipWith (*) xs ys)
innerProd xs ys = sum(zipWith (*) xs ys)