使用列表理解的非负数的数字总和

问题描述

我正在寻找像这样的非负数的数字总和（“交叉总和”）的非递归实现：

cs :: Int -> Int 
cs n = sum digits_of_n where digits_of_n = [ . | ... ] 

基本上：如何仅使用列表理解从非负整数中获取数字列表？

交叉和示例：157 的交叉和是 1 + 5 + 7 = 13

“通常的方法”是使用模和除法递归地从数字中提取数字，然后像这样总结它们：

cs :: Int -> Int
cs n = if n == 0 then 0 else n `mod` 10 + cs (n `div` 10)

然而，我很难在没有递归和列表理解的情况下表达这一点，有人对此有什么想法吗？

解决方法

sume n =  foldr (+) 0 [  digitToInt c | c <- show n,isDigit c ]