From 6c89f18e9d68c199e854b33310c9a0aa194cf2b0 Mon Sep 17 00:00:00 2001
From: Amneesh Singh <natto@weirdnatto.in>
Date: Wed, 26 Oct 2022 12:49:33 +0530
Subject: [PATCH] haskell: add p1, p2

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
---
 haskell/Lib.hs | 3 +++
 haskell/p1.hs  | 5 +++++
 haskell/p2.hs  | 7 +++++++
 3 files changed, 15 insertions(+)
 create mode 100644 haskell/p1.hs
 create mode 100644 haskell/p2.hs

diff --git a/haskell/Lib.hs b/haskell/Lib.hs
index 6d85a26..e932c33 100644
--- a/haskell/Lib.hs
+++ b/haskell/Lib.hs
@@ -1 +1,4 @@
 module Lib where
+
+fib :: [ Integer ]
+fib = 1 : 2 : zipWith (+) fib (tail fib)
diff --git a/haskell/p1.hs b/haskell/p1.hs
new file mode 100644
index 0000000..b49f82f
--- /dev/null
+++ b/haskell/p1.hs
@@ -0,0 +1,5 @@
+main :: IO ()
+main = putStr $ show solve
+
+solve :: Integer
+solve = sum [ x | x <- [0..999], mod x 3 == 0 || mod x 5 == 0 ]
diff --git a/haskell/p2.hs b/haskell/p2.hs
new file mode 100644
index 0000000..346e513
--- /dev/null
+++ b/haskell/p2.hs
@@ -0,0 +1,7 @@
+import Lib (fib)
+
+main :: IO ()
+main = putStr $ show solve
+
+solve :: Integer
+solve = sum $ filter even $ takeWhile (<= 4000000) fib