計劃降序

Question

我是新來的計劃，所以我提前爲基本問題表示歉意。我試圖創建一個遞歸降序列表。目前它返回(1 2 3)而不是(3 2 1)

我認爲問題是，我將我的新元素放在前面而不是列表的末尾。不過，我不太清楚如何獲取它，因爲我在嘗試時不斷收到錯誤。

這是我到目前爲止有：

所有的

(define (descend N mylist) 
    (if (= N 0) mylist 
     (descend (- N 1) (cons N mylist)))) 

(descend 3 '()) 

Answer 1

首先，mylist說法是完全沒有必要。它絕不是空白列表，所以它可以簡單地省略。其次，如果你不需要你的函數是尾遞歸的，那麼只需將你的調用結構重新排序爲cons和descend，這樣這個列表就是在相反的方向上構建的。

(define (descend N) 
    (if (= N 0) '() 
     (cons N (descend (- N 1))))) 

如果你需要一個尾遞歸版本，那麼它可能會更有意義，創建具有輔助迴路的蓄能器和簡單的迭代反向。

(define (descend N) 
    (let loop ((x 1) 
      (acc '())) 
    (if (= x N) (cons x acc) 
     (loop (+ x 1) (cons x acc)))))