pogliamarci/scalarprod.hs

## scalarprod.hs
infixl 8 ***
(***) :: (Num a) => [a] -> [a] -> a
(***) a b = foldl1 (+) (cartprod a b) -- or foldl (+) 0
                 where
                   cartprod a b = [h*k | (h,k) <- zip a b]

-- just a tiny test :)
main :: IO ()
main = do
   print $ [1,2,3] *** [1,1,1] + [3,4,5] *** [34,4,5] * 3 -- output: 435
	infixl 8 ***
	(***) :: (Num a) => [a] -> [a] -> a
	(***) a b = foldl1 (+) (cartprod a b) -- or foldl (+) 0
	where
	cartprod a b = [h*k \| (h,k) <- zip a b]

	-- just a tiny test :)
	main :: IO ()
	main = do
	print $ [1,2,3] * [1,1,1] + [3,4,5] * [34,4,5] * 3 -- output: 435