如何在Scheme中计算一个数的各位数字之和？

Question

我想计算Scheme中一个数字的数字之和。它应该像这样工作：

>(sum-of-digits 123)
 6

我的想法是将数字 123 转换为字符串 "123"，然后将其转换为列表 '(1 2 3)< /code> 然后使用 (apply + '(1 2 3)) 得到 6。

但不幸的是它并没有像我想象的那样工作。

>(string->list(number->string 123))
'(#\1 #\2 #\3)

显然 '(#\1 #\2 #\3) 与 '(1 2 3) 不同...因为我使用的是语言 racket在DrRacket下，所以我不能使用像char->digit这样的功能。

谁能帮我解决这个问题吗？

Answer 1

另一种方法是使用模来循环数字。我不太习惯方案语法，但是感谢 @bearzk 翻译了我的 Lisp，这里有一个适用于非负整数的函数（只需做一点工作就可以包含小数和负值）：

(define (sum-of-digits x) 
  (if (= x 0) 0 
      (+ (modulo x 10) 
         (sum-of-digits (/ (- x (modulo x 10)) 10)))))

Answer 2

像这样的东西可以用算术方式而不是字符串方式来完成你的数字事情：

(define (digits n)
    (if (zero? n)
        '()
        (cons (remainder n 10) (digits2 (quotient n 10))))

无论如何，我不知道它是否是你正在做的事情，但这个问题让我想到欧拉计划。如果是这样，您将在未来的问题中欣赏到这两个功能。

上面是最难的部分，这是其余的：

(foldr + (digits 12345) 0)

或

(apply + (digits 1234))

---

编辑 - 我摆脱了上面的 intLength ，但以防万一你仍然想要它。

(define (intLength x)
   (define (intLengthP x c)
      (if (zero? x)
          c
          (intLengthP (quotient x 10) (+ c 1))
      )
   )
   (intLengthP x 0))

Answer 3

那些#\1、#\2 的东西就是字符。我讨厌 RTFM 你，但是这里的 Racket 文档真的很好。如果您在 DrRacket 中突出显示 string->list 并按 F1，您应该会看到一个包含大量有用信息的浏览器窗口。

以免让您蒙在鼓里；我想我可能会使用“字符串”函数作为解决方案中缺少的步骤：

(map string (list #\a #\b))

...产生

(list "a" "b")

Answer 4

更好的想法是实际找到数字并对它们求和。 34%10 给出 4，3%10 给出 3。总和为3+4。

这是 F# 中的一个算法（抱歉，我不知道Scheme）：

let rec sumOfDigits n =
    if n<10 then n
    else (n%10) + sumOfDigits (n/10)

Answer 5

这是可行的，它建立在您最初的 string->list 解决方案的基础上，只需对字符列表进行转换

(apply + (map (lambda (d) (- (char->integer d) (char->integer #\0)))
       (string->list (number->string 123))))

即可分解转换函数以使其更加清晰：

(define (digit->integer d)
  (- (char->integer d) (char->integer #\0)))

(apply + (map digit->integer (string->list (number->string 123))))

Answer 6

(define (sum-of-digits num)
    (if (< num 10)
        num
        (+ (remainder num 10) (sum-of-digits (/ (- num (remainder num 10)) 10)))))

递归过程..终止于n < 10 其中 sum-of-digits 返回输入 num 本身。