Clojure中序列的懶串聯

Question

這裏有一個初學者的問題：在Clojure中是否有一種方法來懶散地連接任意數量的序列？我知道有lazy-cat宏，但我不能想到它的正確應用程序的任意數量的序列。

我的用例是通過paginated（offseted/limited）請求延遲加載API中的數據。下面通過request-fn執行的每個請求檢索100個結果：

(map request-fn (iterate (partial + 100) 0)) 

當沒有更多結果，request-fn返回一個空序列。這是當我停止迭代：

(take-while seq (map request-fn (iterate (partial + 100) 0))) 

例如，API可能返回最多500個結果，可以嘲笑爲：

(defn request-fn [offset] (when (< offset 500) (list offset))) 

如果我想連接的結果，我可以使用(apply concat results)但熱切評估結果序列：

(apply concat (take-while seq (map request-fn (iterate (partial + 100) 0)))) 

有沒有辦法如何懶洋洋地連接結果序列，即使用lazy-cat或其他什麼東西？

Answer 1

爲了記錄，apply將僅消耗足夠的參數序​​列，因爲它需要確定要調用哪個參數來提供所提供的功能。由於concat的最大秩序爲3,apply將實現最多3個來自基礎序列的項目。

如果這些API調用非常昂貴，而且您真的無法承擔不必要的調用，那麼您將需要一個接受seq-of-seqs並且一次一個地連接它們的函數。我不認爲有任何內置的，但它是相當簡單的寫你自己的：

(defn lazy-cat' [colls] 
    (lazy-seq 
    (if (seq colls) 
     (concat (first colls) (lazy-cat' (next colls))))))