Преобразовать номер в список цифр
Как мне преобразовать число в список цифр?
В настоящее время я делаю:
;; (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)))
но хотел бы знать, есть ли лучший способ.