7 lines
208 B
Clojure
7 lines
208 B
Clojure
(use '[clojure.java.io])
|
|
|
|
(defn walk [dirpath pattern]
|
|
(doall (filter #(re-matches pattern (.getName %))
|
|
(file-seq (file dirpath)))))
|
|
|
|
(map #(println (.getPath %)) (walk "src" #".*\.clj"))
|