ricorsivo (doall) in clojure

Question

Ho alcune strutture con sequenze pigro nidificate che leggono dai file. Quando sto testando mi piacerebbe essere in grado di avvolgerli in una versione ricorsiva di doall per essere sicuri che tutti i dati vengano estratti dai file prima del i file vengano chiusi.

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)))) 

uscita:

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

Answer 2

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

Answer 3

questo ha lavorato per me in una prova di unità

(use 'clojure.walk) 
(postwalk identity nested-lazy-thing)