mirror of
https://github.com/correl/elm.git
synced 2024-12-24 20:00:39 +00:00
11 lines
323 B
Elm
11 lines
323 B
Elm
module SumOfMultiples exposing (..)
|
|
|
|
|
|
sumOfMultiples : List Int -> Int -> Int
|
|
sumOfMultiples multiples limit =
|
|
List.sum (List.filter (inMultiples multiples) (List.range 1 (limit - 1)))
|
|
|
|
|
|
inMultiples : List Int -> Int -> Bool
|
|
inMultiples multiples candidate =
|
|
List.any (\factor -> candidate % factor == 0) multiples
|