1
0
Fork 0
mirror of https://gitlab.com/mfocko/CodeWars.git synced 2024-11-25 02:01:56 +01:00
CodeWars/7kyu/product_of_array_items/solution.hs

6 lines
118 B
Haskell
Raw Normal View History

module Product where
product' :: [Integer] -> Maybe Integer
product' [] = Nothing
product' xs = Just $ foldl1 (*) xs