1
0
Fork 0
mirror of https://github.com/correl/elm.git synced 2025-03-24 17:00:06 -09:00
elm/exercises/sum-of-multiples/SumOfMultiples.example

9 lines
339 B
Text

module SumOfMultiples (..) where
sumOfMultiples : List Int -> Int -> Int
sumOfMultiples factors upperLimit =
List.sum (List.filter (isMultipleOfAnyFactor factors) [1 .. (upperLimit - 1)])
isMultipleOfAnyFactor : List Int -> Int -> Bool
isMultipleOfAnyFactor factors candidate =
List.any (\factor -> candidate % factor == 0) factors