elm/exercises/sum-of-multiples/SumOfMultiples.example

module SumOfMultiples (..) where


sumOfMultiples : List Int -> Int -> Int
sumOfMultiples multiples limit =
  List.sum (List.filter (inMultiples multiples) [1..(limit - 1)])


inMultiples : List Int -> Int -> Bool
inMultiples multiples candidate =
  List.any (\factor -> candidate % factor == 0) multiples
Align cherry picked exercises with the new test format 2016-03-17 01:38:35 +00:00			`module SumOfMultiples (..) where`
Add test and example for Sum of Multiples 2015-10-13 18:23:46 +00:00
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Add test and example for Sum of Multiples 2015-10-13 18:23:46 +00:00			`sumOfMultiples : List Int -> Int -> Int`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00			`sumOfMultiples multiples limit =`
			`List.sum (List.filter (inMultiples multiples) [1..(limit - 1)])`

Add test and example for Sum of Multiples 2015-10-13 18:23:46 +00:00
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00			`inMultiples : List Int -> Int -> Bool`
			`inMultiples multiples candidate =`
			`List.any (\factor -> candidate % factor == 0) multiples`