mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-11-08 18:49:07 +01:00
7 lines
295 B
Haskell
7 lines
295 B
Haskell
module MultiplesOf3And5 where
|
|
|
|
sumOfMultiples :: Integer -> Integer -> Integer
|
|
sumOfMultiples n upTo = div ((div (upTo - 1) n) * (n + (upTo - 1 - mod (upTo - 1) n))) 2
|
|
|
|
solution :: Integer -> Integer
|
|
solution number = sumOfMultiples 3 number + sumOfMultiples 5 number - sumOfMultiples 15 number
|