Skip to content

Instantly share code, notes, and snippets.

@aomoriringo

aomoriringo/pe001.hs

Created August 8, 2012 03:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aomoriringo/3291921 to your computer and use it in GitHub Desktop.
Save aomoriringo/3291921 to your computer and use it in GitHub Desktop.
Download ZIP
Project Euler Problem 0001 with Haskell
Raw
pe001.hs
--http://projecteuler.net/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.
main = do
print $ sum [ x | x<-init[1..1000], x`mod`==0 || x`mod`5==0 ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment