Product package:relude

newtype Product a
relude Relude.Monoid
Monoid under multiplication. 
Product x <> Product y == Product (x * y)

Examples

>>> Product 3 <> Product 4 <> mempty
Product {getProduct = 12}

>>> mconcat [ Product n | n <- [2 .. 10]]
Product {getProduct = 3628800}
Product :: a -> Product a
relude Relude.Monoid
product :: forall a f . (Foldable f, Num a) => f a -> a
relude Relude.Foldable.Fold
Stricter version of product. 
>>> product [1..10]
3628800
getProduct :: Product a -> a
relude Relude.Monoid