Definir la función
sumaDivisores :: Integer -> Integer |
tal que (sumaDivisores x)
es la suma de los divisores de x
. Por ejemplo,
sumaDivisores 12 == 28 sumaDivisores 25 == 31 sumaDivisores (product [1..25]) == 93383273455325195473152000 length (show (sumaDivisores (product [1..30000]))) == 121289 maximum (map sumaDivisores [1..10^5]) == 403200 |