From 1a6d7480eca3f0a9db3a87ff0ee82e56637e60dd Mon Sep 17 00:00:00 2001 From: Evan Hemsley Date: Tue, 27 Oct 2020 00:53:01 -0700 Subject: [PATCH] list comprehension haskell 001 --- haskell/euler001.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/haskell/euler001.hs b/haskell/euler001.hs index f61b1a3..47c6705 100644 --- a/haskell/euler001.hs +++ b/haskell/euler001.hs @@ -1,6 +1,4 @@ module Main where -divisible_by_3_or_5 x = (mod x 3 == 0) || (mod x 5 == 0) - main = do - print (sum (filter divisible_by_3_or_5 [1..999])) + print $ sum [x | x <- [1..999], mod x 3 == 0 || mod x 5 == 0]