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

module SumOfMultiples (..) 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
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
			`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`