如何解决使用列表理解的非负数的数字总和
我正在寻找像这样的非负数的数字总和(“交叉总和”)的非递归实现:
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 ]
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。