Question

我想将我的函数结果显示为列表而不是数字。我的结果是：

(define lst (list ))
(define (num->base n b)
  (if (zero? n)
     (append lst (list 0))
     (append lst (list (+ (* 10 (num->base (quotient n b) b)) (modulo n b))))))

出现下一个错误：

expected: number?
given: '(0)
argument position: 2nd
other arguments...:
10

Answer 1

我认为你必须重新考虑这个问题。将结果附加到全局变量绝对不是可行的方法，让我们通过尾递归尝试不同的方法：

(define (num->base n b)
  (let loop ((n n) (acc '()))
    (if (< n b)
        (cons n acc)
        (loop (quotient n b)
              (cons (modulo n b) acc)))))

按预期工作：

(num->base 12345 10)
=> '(1 2 3 4 5)

将自然数转换为特定基数并将其作为列表返回

1 个答案: