haskell: add p1, p2

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
2022-10-26 12:49:33 +05:30
parent fcce234a10
commit 865937a152
2 changed files with 12 additions and 0 deletions
--- a/haskell/p1.hs
+++ 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 ]
--- a/haskell/p2.hs
+++ 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