mirror of
https://github.com/correl/elm.git
synced 2024-12-22 11:09:08 +00:00
9 lines
341 B
Text
9 lines
341 B
Text
module SumOfMultiplesExample 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
|