Skip to content

Instantly share code, notes, and snippets.

@jasonmc

jasonmc/gist:2474995

Created April 24, 2012 00:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jasonmc/2474995 to your computer and use it in GitHub Desktop.
Save jasonmc/2474995 to your computer and use it in GitHub Desktop.
Download ZIP
Clojure directory tree builder
Raw
gistfile1.clj
(defn buildMap [fl]
(cond
(.isDirectory fl)
(let [subfiles (filter (complement nil?) (map buildMap (.listFiles fl)))]
(list (.getAbsolutePath fl) subfiles (reduce + (map last subfiles)))
)
(.isFile fl)
(list (.getAbsolutePath fl) (.length fl))
)
)
(pprint (buildMap (clojure.java.io/file "/Users/jason/Code/grades")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment