遞歸Clojure中

Question

我試圖使這個示例程序工作

(defn foo 
    ([x] (foo x [])) 
    ([x current] 
    (when (> x 0) 
     (recur (dec x) (conj current x))))) 

當我調用此函數（FOO 5），我應該得到[1 2 3 4 5]，但它只返回零。我究竟做錯了什麼？

感謝， 穆爾塔扎

Answer 1

我糾正了原來的程序使用(if (= x 0)代替(when (> x 0)，這將返回[1 2 3 4 5]。

(defn foo 
    ([x] (foo x [])) 
    ([x current] 
    (if (= x 0) 
     (apply vector (sort < current)) 
     (recur (dec x) (conj current x))))) 

Answer 2

您的遞歸沒有一個返回表達式即當那麼when是假的遞歸終止並返回零。你可以解決這個使用if爲：

(defn foo 
    ([x] (foo x [])) 
    ([x current] 
    (if (> x 0) 
     (recur (dec x) (conj current x)) 
     current))) 

如您使用的是矢量向量作爲返回值和conj這將爲(foo 5)返回[5 4 3 2 1]附加物品在向量的末尾。您可以扭轉的載體，或者使用列表即代替(foo x [])使用(foo x '())

Answer 3

下面的代碼工作。我沒有返回最終價值。

(defn foo 
    ([x] (foo x [])) 
    ([x current] 
    (if (> x 0) 
     (recur (dec x) (conj current x)) 
     current)))