From 9763b56dce12a6e3a1f25be8c951773f48100ba1 Mon Sep 17 00:00:00 2001 From: Evan Hemsley Date: Mon, 26 Oct 2020 23:23:53 -0700 Subject: [PATCH] more idiomatic 001 --- haskell/euler001.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell/euler001.hs b/haskell/euler001.hs index b397f53..f61b1a3 100644 --- a/haskell/euler001.hs +++ b/haskell/euler001.hs @@ -1,6 +1,6 @@ module Main where -divisible_by_3_or_5 x = (x `mod` 3 == 0) || (x `mod` 5 == 0) +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]))