scheme - 将数字转换为数字列表

Question

如何将数字转换为数字列表？

我目前正在做:

;; (num->list 12345) -> '(1 2 3 4 5)
(define (num->list n)
  (local 
    ((define (num->list n)
       (map (lambda (c)
              (char->num c))
            (string->list (number->string n))))

    (define (char->num c)
      (- (char->integer c) 48)))

    (num->list n)))

但想知道是否有更好的方法。

Answer 1

这是我在 Racket 中的做法:

(require srfi/1 srfi/26)
(define (digits->list num (base 10))
  (unfold-right zero? (cut remainder <> base) (cut quotient <> base) num))

这就是 unfold 的设计目的。 :-D