Sha256: 21d13fcdd04c7fb7951bb563371ddfa6894cf3852b45a0f95477c1da2f1ab9df
Contents?: true
Size: 416 Bytes
Versions: 130
Compression:
Stored size: 416 Bytes
Contents
module SumOfMultiples
( sumOfMultiples
) where
import Prelude
import Data.Array ((..), filter)
import Data.Foldable (any, sum)
sumOfMultiples :: Array Int -> Int -> Int
sumOfMultiples factors limit = sum $ filter (any isMultiple factors) rangeToCheck
where
rangeToCheck :: Array Int
rangeToCheck = 1..(limit - 1)
isMultiple :: Int -> Int -> Boolean
isMultiple factor x = x `mod` factor == 0
Version data entries
130 entries across 130 versions & 1 rubygems