-- Number of divisors
numDivisors n = length $ filter (==True) $ map ((==0) . rem n) [1..n]
numDivisors n = length $ filter (==True) $ map ((==0) . rem n) [1..n]
numDivisors n = length $ filter (==True) $ map ((==0) . rem n) [1..n]