haskell: add [p12, p17]

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
2022-11-07 19:17:35 +05:30
parent 22fdf20500
commit de6ea02b14
7 changed files with 185 additions and 5 deletions
--- a/haskell/p12.hs
+++ b/haskell/p12.hs
@@ -0,0 +1,10 @@
+import Lib (factors)
+
+main :: IO ()
+main = putStr $ show $ solve 500
+
+solve :: Int -> Integer
+solve n = head [tn | i <- [1 ..], let tn = triangleNumber i, (length . factors) tn > n]
+
+triangleNumber :: Int -> Integer
+triangleNumber n = toInteger $ div (n * (n + 1)) 2