Walk a directory/Recursively: Difference between revisions
Content added Content deleted
No edit summary |
(added Clojure version) |
||
| Line 241: | Line 241: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|Clojure}}== |
|||
The standard function ''file-seq'' does a tree walk. |
|||
<lang clojure>(import '[java.io File]) |
|||
(defn walk [dirpath pattern] |
|||
(doseq [file (-> dirpath File. file-seq)] |
|||
(if (re-matches pattern (.getName file)) |
|||
(println (.getPath file))))) |
|||
(walk "src" #".*\.clj")</lang> |
|||
=={{header|D}}== |
=={{header|D}}== |
||