Voy a proponer una solución más curiosa. Para obtener los dígitos de un número podemos convertirlo primero a una cadena de caracteres (lista de chars) y luego ir sumando cada digito:
sumDigitos' :: Int -> Int
sumDigitos' n = sum [read [c] | c <- show n]
Podemos emplear una función de Data.Char
para que sea más simple:
import Data.Char (digitToInt)
sumDigitos' :: Int -> Int
sumDigitos' n = sum (map digitToInt (show n))
que podemos reescribir como pointfree:
import Data.Char (digitToInt)
sumDigitos' :: Int -> Int
sumDigitos' = sum . map digitToInt . show
Podemos aplicar esta función a cada número de la lista, o también podemos concatenar los dígitos de todos los números en una única lista de chars:
digitos :: [Int] -> [Char]
digitos xs = concatMap show xs
Juntando todo:
sumDigitos :: [Int] -> Int
sumDigitos xs = sum . map digitToInt $ concatMap show xs
que también puede ser reescrito en pointfree quedando finalmente como:
import Data.Char (digitToInt)
sumDigitos :: [Int] -> Int
sumDigitos = sum . map digitToInt . concatMap show
Es una composición de tres funciones:
concatMap show
--> convierte la lista de números en una lista de caracteres, un dígito por caracter
map digitToInt
--> convierte cada caracter en un número entero
sum
--> suma todo
[1234]
es una lista de un solo elemento, el número1234
¿lo que necesitas es sumar sus dígitos?