11 lines
267 B
Haskell
11 lines
267 B
Haskell
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
|