banovski

Project Euler, Problem #1, Haskell

Nov 27th, 2021 (edited)
1,095
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Если выписать все натуральные числа меньше 10, кратные 3 или 5, то
  2. -- получим 3, 5, 6 и 9. Сумма этих чисел равна 23. Найдите сумму всех
  3. -- чисел меньше 1000, кратных 3 или 5.
  4.  
  5. main = print $ sum [x | x <- [0..999], mod x 3 == 0 || mod x 5 == 0]
  6.  
  7. -- 233168
RAW Paste Data