resolucionHaskell problem001

a2ff0e27 · Lucas Fabrizio Di Salvo · 23b25d76 · a2ff0e27
Commit a2ff0e27 authored 5 years ago by Lucas Fabrizio Di Salvo
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

Haskell/problem_001.hs Haskell/problem_001.hs +9 -0

No files found.
--- a/Haskell/problem_001.hs
+++ b/Haskell/problem_001.hs
+{- 
+	"Multiples of 3 and 5"
+	Problem 1
+
+	If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
+	Find the sum of all the multiples of 3 or 5 below 1000.
+-}
+
+let result = sum [x | x <- [1..999], x `mod` 3 == 0 || x `mod` 5 == 0]