elm/exercises/sum-of-multiples/SumOfMultiples.example.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
Update elm-package.json and .elm files to support Elm 0.17 2016-05-12 22:26:52 -04:00			`module SumOfMultiples exposing (..)`
Add test and example for Sum of Multiples 2015-10-13 11:23:46 -07:00
Run elm-format over cherry picked exercises 2016-03-16 21:38:51 -04:00
Add test and example for Sum of Multiples 2015-10-13 11:23:46 -07:00			`sumOfMultiples : List Int -> Int -> Int`
Run elm-format over cherry picked exercises 2016-03-16 21:38:51 -04:00			`sumOfMultiples multiples limit =`
Update elm files to 0.18 2016-12-17 17:15:34 -05:00			`List.sum (List.filter (inMultiples multiples) (List.range 1 (limit - 1)))`
Run elm-format over cherry picked exercises 2016-03-16 21:38:51 -04:00
Add test and example for Sum of Multiples 2015-10-13 11:23:46 -07:00
Run elm-format over cherry picked exercises 2016-03-16 21:38:51 -04:00			`inMultiples : List Int -> Int -> Bool`
			`inMultiples multiples candidate =`
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 17:46:13 -04:00			`List.any (\factor -> candidate % factor == 0) multiples`