-- Problems/Problem012.hs
module Problems.Problem012 (p12) where

import Data.List
import Data.Maybe
import Helpers.Numbers

main = print p12

p12 :: Int
p12 = fromJust $ find (\x -> divisorCount x >= 500) triangles 

triangles :: [Int]
triangles = scanl1 (+) [1..]
