Optimisations pour une série de fonctions dans Haskell

Question

Je suis en train de faire problème 254 dans le projet euler et sont arrivés à cet ensemble de fonctions et refactor dans Haskell:

f n = sum $ map fac (decToList n) 
sf n = sum $ decToList (f n) 
g i = head [ n | n <- [1..], sf n == i] 
sg i = sum $ decToList (g i) 

answer = sum [ sg i | i <- [1 .. 150] ] 

Où:

• f (n) découvertes la somme des factorielles de chaque chiffre en n
• sf (n) est la somme des chiffres du résultat de f (n)
• g (i) est la plus petite solution entière pour sf (i). Comme il peut y avoir beaucoup de résultats pour sf (i)
• sg (i) est la somme des chiffres dans le résultat de g (i)

Mais pas longtemps en exécutant la version compilée de ce script, il aspiré toute ma RAM. Existe-t-il un meilleur moyen d'implémenter la fonction g (i)? Si oui, que peuvent-ils être et comment pourrais-je y aller?

EDIT:

Juste de clarté, mes fonctions pour:

fac est:

`fac 0 = 1` 

`fac n = n * fac (n-1)` 

decToList qui fait un numéro dans une liste:

decToList1 x = reverse $ decToList' x 
where 
decToList' 0 = [] 
decToList' y = let (a,b) = quotRem y 10 in [b] ++ decToList' a 

Bien que Je l'ai fait depuis les mettre à jour à la solution de Yairchu f ou d'optimisation.

Answer 1

Le problème de mémoire peut se trouver dans decToList ou fac.

je l'ai couru avec

fac = product . enumFromTo 1 
decToList = map (read . return) . show 
main = print answer 

Et ce ne sont pas venus près de sucer toute ma RAM, il n'a pas fini, cependant. Btw: Je suspecte un problème Euler de projet avancé d'être plus dur que cela. donc cet algorithme ne le fera pas.