mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-11-09 11:09:07 +01:00
6 lines
118 B
Haskell
6 lines
118 B
Haskell
|
module Product where
|
||
|
|
|
||
|
|
product' :: [Integer] -> Maybe Integer
|
||
|
|
product' [] = Nothing
|
||
|
|
product' xs = Just $ foldl1 (*) xs
|