Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 241 Bytes
module Problem_12
( solve
) where
import qualified Lib
triangle_numbers :: (Integral a) => [a]
triangle_numbers = [x * (x+1) `div` 2 | x <- [1..]]
solve = head $ dropWhile (\x -> length (Lib.factorsOf x) <= 500) $ triangle_numbers
You can’t perform that action at this time.