我正在寻找一个非负数的数字总和（“交叉总和”）的非递归实现，如下所示：
cs :: Int -> Int
cs n = sum digits_of_n where digits_of_n = [ . | ... ]
一个数字的交叉和（例如 512）是其各个数字的总和（例如 5 + 1 + 2 = 8）
cs 将一个非负数“n”作为输入，然后应该使用列表推导将数字拆分为其数字（例如 1234 -> [1,2,3,4]），然后将其相加。
使用列表理解的部分是问题，我不知道如何实现。
“通常”的递归方式是使用模和除法递归地从数字中提取数字，然后像这样总结它们：
cs :: Int -> Int
cs n = if n == 0 then 0 else n `mod` 10 + cs (n `div` 10)
然而，我很难在没有递归和列表理解的情况下表达这一点，有人对此有想法吗？
首先让我指出，这样的数字总和几乎是完全无用的计算，这里有太多关于它们的问题。
...无论如何-您的问题归结为编写一个Int -> [Int]生成非负数的数字列表的函数。好吧，这当然可以递归地完成，它可以使用show（这有点骇人听闻，但是，任何需要十进制数字的东西都将是骇客），使用unfold，或者确实使用列表理解来完成。在这种情况下，您不能很好地终止消耗所有数字，但您仍然可以先计算数字的数量，然后分别确定每个i -th 数字：
decimalDigits :: Int -> [Int]
decimalDigits n = [ _ | i <- [0 .. ceiling . logBase 10 $ fromIntegral n ]
然后，要计算i第 - 位，您需要像在递归解决方案中一样使用modand div，只是不是 10 而是它的i-th 次方。
这是一种可能的方法：
f x = [(x `mod` (10 ^ y)) `div` (10 ^ (y-1)) | y <- [1.. ceiling $ logBase 10 $ fromIntegral x]]
这假设数字作为整数输入。它首先计算大于输入的以 10 为底的对数的最接近的整数。div该值为下一步提供了一个边界，我们使用和的组合将数字拆分为数字mod。将所有内容放在一起，我们最终得到从右到左的数字。
另一个间接的
sumdigits = sum . map digitToInt . show
你需要import Data.Char(digitToInt)