Sum multiples of 3 and 5: Difference between revisions
m
→{{header|Haskell}}
Line 1,514:
let n1 = (n - 1) `div` f
in f * n1 * (n1 + 1) `div` 2
---------------- FOR VARIABLE LENGTH INPUTS ----------------
pairLCM :: [Integer] -> [Integer]
pairLCM [] = []
Line 1,522 ⟶ 1,524:
sumMulS :: Integer -> [Integer] -> Integer
sumMulS _ [] = 0
sumMulS n s =
sumMulS n s = (((-) . sum . fmap (sumMul n)) <*> (sumMulS n . pairLCM)) (nub s)▼
let f = sumMul n
g = sumMulS n
--------------------------- TEST ---------------------------
| |||