計劃：遞歸和列表

Question

我一直試圖通過教程如何設計計劃的程序來學習一些編程。直到現在我已經完成了所有的事情。問題如下：

9.5.5開發函數convert。它消耗一個數字列表，並且 產生相應的數字。 的第一個數字是最不重要的， 依此類推。

繼前幾個步驟，從數據分析，模板，我最終 了這一點，一個程序的梗概：

;; A list-of-numbers is either 1. an empty list, empty, or 2. (cons n 
lon) where n is a number and lon is a list of numbers 
;; convert : lon -> number 
;; to consume a lon and produce the corresponding number. The least 
significant digit corresponds to the first number in the list, and so 
on. 
;; (= (convert (cons 1 (cons 9 (cons 10 (cons 99 empty))))) 991091) 
(define (convert lon) 
    (cond 
    [(empty? lon)...] 
    [(cons? lon)...(first lon)...(convert (rest lon))...])) 

如何突破這個階段，作爲書有它，「結合價值」？ 單向我認爲可以工作是，如果我乘以所述第一值通過 10的總數的值的意義，例如，功率，

（利弊1（利弊9空））=> 1 * 10 ^（SIGNIFICANCE），其中至少 顯着性爲0.使用我對 編程的有限理解，我認爲需要一些計數器，其中n每次增加 一次，以一種說法的方式遞歸地稱爲 。但是在我看來，這是試圖同時運行兩個遞歸的 。因爲表達式按順序（顯然）被評估爲 ，所以當您調用convert函數時，不能調用計數器函數。

那麼，誰能幫我解決這個問題？如果你用 解決了這個問題，那麼使用自然遞歸和列表的CONSUTRUCTOR來解決這個問題，而不是使用lambda或本書尚未解決的其他想法。

謝謝！

Answer 1

你不需要做指數運算 - 簡單的乘法運算就可以。

(define (convert digits) 
    (cond 
    ((empty? digits) 0) 
    (else (+ (* 10 (convert (rest digits))) (first digits))) 
) 
) 

(convert '(1 2 3 4 5 6)) 

或者，思考它的另一種方式：

(define (convert digits) 
    (convert-helper digits 1 0) 
) 

(define (convert-helper digits multiplier sofar) 
    (cond 
    ((empty? digits) sofar) 
    (else 
     (convert-helper 
      (rest digits) 
      (* 10 multiplier) 
      (+ (* multiplier (first digits)) sofar) 
     ) 
    ) 
) 
) 


(convert '(1 2 3 4 5 6)) 

Answer 2

下面是一個尾遞歸版本：

(define (convert lon) 
    (let rec ((i 0) 
      (n 0) 
      (lon lon)) 
    (cond ((empty? lon) n) 
      (else (rec (+ i 1) 
        (+ n (* (first lon) (expt 10 i))) 
        (rest lon))))))