使用列表理解对非负数的数字进行交叉求和
Cross sum of digits of a non-negative number using list comprehension
我正在寻找非负数的数字总和（“叉和”）的非递归实现，如下所示：
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 来完成（这有点 hack，但是 anything 需要 decimal digits 将是 hack），带有 unfold，或者确实带有列表理解。在这种情况下，你不能很好地 terminate 消耗完所有数字，但你仍然可以先计算数字的数量，然后确定每个 i-th 数字分开：
decimalDigits :: Int -> [Int]
decimalDigits n = [ _ | i <- [0 .. ceiling . logBase 10 $ fromIntegral n ]
然后，要计算第 i 个数字，您需要像在递归解决方案中一样使用 mod 和 div，只是不是使用 10，而是它的 i 次方。
这是一种可能的方法：
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)
我正在寻找非负数的数字总和（“叉和”）的非递归实现，如下所示：
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 来完成（这有点 hack，但是 anything 需要 decimal digits 将是 hack），带有 unfold，或者确实带有列表理解。在这种情况下，你不能很好地 terminate 消耗完所有数字，但你仍然可以先计算数字的数量，然后确定每个 i-th 数字分开：
decimalDigits :: Int -> [Int]
decimalDigits n = [ _ | i <- [0 .. ceiling . logBase 10 $ fromIntegral n ]
然后，要计算第 i 个数字，您需要像在递归解决方案中一样使用 mod 和 div，只是不是使用 10，而是它的 i 次方。
这是一种可能的方法：
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)