Improved project structure.

2017-06-01 14:50:23 +02:00
parent 5e06b03248
commit 89f0d81598
25 changed files with 2 additions and 0 deletions
--- a/haskell/e002.hs
+++ b/haskell/e002.hs
@@ -0,0 +1,3 @@
+-- 2 - all even primes lower 4 million
+problem_2 :: Int
+problem_2 = sum [x | x <- (takeWhile (<= 4000000) ((fix (\f x y -> x:f y (x+y))) 1 1)), even x]