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/e010.hs
+++ b/haskell/e010.hs
@@ -0,0 +1,4 @@
+-- 10 - sum prime smaller 2 million
+eres :: Integral a => [a] -> [a]
+eres (x:xs) = if x*x < last xs then x:eres (filter (\y -> rem y x /= 0) xs) else (x:xs)
+problem_10 = sum $ eres [2..2000000]