Помогите мне найти проблема с моим решением Project Euler # 12 в Haskell

Я ' Я новичок в Haskell и программировании в целом, но я пытаюсь проработать некоторые проблемы Project Euler, потому что мне нравится решать проблемы. Однако у меня проблема с проблемой №12 .

Я придумал решение, которое, как я думал, сработает, но, увы, это не так.

Вы можете помочь мне, открыв мне глаза на проблему с моим кодом, и, может быть, подтолкнуть меня в правильном направлении, чтобы исправить это? Спасибо.

Вот код:

triangleNumber = scanl1 (+) [1..]

factors n = [x | x <- [1..n], n `mod` x == 0]

numFactors = length . factors

eulerTwelve = find ((>500) . numFactors) triangleNumber 

Большое спасибо! :)