在 Scheme 中组合一个间隔数字列表

Question

我有一个函数，它接受一个诸如 36 之类的数字，并将其反转为

 '(6 3)

有没有办法把 6 3 组合成一个数？

这是我写的代码。

（定义（数字-> rdigits 数字） (如果 (rdigits (/ (- num (mod num 10)) 10))))) （定义可逆？ (λ (n) （条件 [（空？n）#f] [else (odd? (+ n (list (number->rdigits n))))])))

谢谢！

Answer 1

您可以使用迭代函数来执行此操作，该函数依次获取列表中的每个元素，并累积一个结果。例如：

(define (make-number lst)
  (define (make a lst)
     (if (null? lst)
         a
         (make (+ (* 10 a) (car lst)) (cdr lst))))
  (make 0 lst))

(display (make-number '(6 3)))

make 函数使用累加器 a 和 lst 中的其余数字一步一步地构建最终结果：

a = 0
a = 0*10 + 6 = 6
a = 6*10 + 3 = 63

如果您的列表中有更多数字，这将继续：

a = 63*10 + 5 = 635
a = 635*10 + 9 = 6359

---

使用单个函数的效率较低的实现可能如下：

(define (make-number lst)
  (if (null? lst)
      0
      (+ (* (expt 10 (length (cdr lst))) (car lst)) (make-number (cdr lst)))))

该函数每次迭代都需要计算列表剩余部分的length，以及重复调用expt函数。此外，此实现不是正确的尾递归，因此它在执行期间构建了多个堆栈帧，然后在达到最大递归深度后将它们全部展开。