mirror of
https://github.com/correl/elm.git
synced 2025-03-18 17:00:06 -09:00
9 lines
339 B
Text
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
|