рекурсивный (doall) в clojure

Оба из тех также отфильтруют каталог, названный cabin, который не мог бы быть тем, что Вы хотите. При фильтрации верхнего уровня можно использовать:

^/bin/

каталоги For bin ниже Вашего корня, можно опустить ^. Нет никакой потребности определить, что синтаксис, regexp является значением по умолчанию.

6
задан Arthur Ulfeldt 1 August 2009 в 18:03
поделиться

2 ответа

(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" ""))
5
ответ дан 9 December 2019 в 22:38
поделиться
(defn doall* [s] (dorun (tree-seq seq? seq s)) s)
5
ответ дан 9 December 2019 в 22:38
поделиться
Другие вопросы по тегам:

Похожие вопросы: