From 5061e75030abefd5ca3fde0b12b2c07601bc3a40 Mon Sep 17 00:00:00 2001 From: Evan Hemsley Date: Mon, 26 Oct 2020 23:19:49 -0700 Subject: [PATCH] cleaner haskell 001 --- haskell/euler001.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/haskell/euler001.hs b/haskell/euler001.hs index c7f32ae..b397f53 100644 --- a/haskell/euler001.hs +++ b/haskell/euler001.hs @@ -1,8 +1,6 @@ module Main where -up_to x = take (x-1) (iterate (1+) 1) - divisible_by_3_or_5 x = (x `mod` 3 == 0) || (x `mod` 5 == 0) main = do - print (sum (filter divisible_by_3_or_5 (up_to 1000))) + print (sum (filter divisible_by_3_or_5 [1..999]))