使用列表理解的非負數的數字總和

Question

我正在尋找一個非負數的數字總和（“交叉總和”）的非遞歸實現，如下所示：

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)

然而，我很難在沒有遞歸和列表理解的情況下表達這一點，有人對此有想法嗎？

Answer 1

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