clojure - clojure の再帰的 (doall)

Question

ファイルから読み取るネストされた遅延シーケンスを持つ構造がいくつかあります。私がテストしているとき、ファイルが閉じられる前にすべてのデータがファイルから引き出されることを確認するために、doall の再帰バージョンでそれらをラップできるようにしたいと考えています。

Answer 1

(defn doall-recur [s]
  (if (seq? s)
    (doall (map doall-recur
                s))
    s))

(use 'clojure.contrib.duck-streams)
(with-open [r1 (reader "test1.txt")
            r2 (reader "test2.txt")]
  (doall-recur (list (line-seq r2) (line-seq r1))))

出力：

(("This is test2.txt" "") ("This is test1.txt" ""))

Answer 2

(defn doall* [s] (dorun (tree-seq seq? seq s)) s)