Help me find the problem with my solution to Project Euler #12 in Haskell

Question

I'm a total newbie to Haskell, and programming in general, but I'm trying to work through some Project Euler problems because I do like problem solving. However, I have a problem with problem #12.

I devised a solution I thought would work, but alas, it does not.

Can you help me by opening my eyes to the problem with my code, and maybe push me in the right direction towards fixing it? Thank you.

Here is the code:

triangleNumber = scanl1 (+) [1..]

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

numFactors = length . factors

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

Thank you very much! :)

Answer 1

The Project Euler questions are designed so that it's a bad idea to try solve them by "brute force", that is, by programming the obvious search and just leaving it to run. (Some of the earlier questions can be solved like that, but it's a good idea not to exploit that, but to use them as practice.) Instead, you have to think about the mathematical content of the question so as to make the computer search tractable.

I don't want to give away too much, but here are some hints:

• There's a formula for the nth triangular number. Find it, so you don't have to compute it by summation.

• Given this formula for the nth triangular number, what numbers can possibly be its divisors?

• Given what you know about these divisors, what's an easy way to figure out how many of them are there? (Without having to enumerate them.)

Answer 2

I copied it and what it threw me was an error that find couldn't be found. That is because you need to import the module List where find is in:

import Data.List

By the way, you should optimize your factors function.