mirror of
https://github.com/correl/elm.git
synced 2024-12-31 19:13:17 +00:00
10 lines
341 B
Text
10 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
|