建立目錄樹

Question

我想建立一個目錄樹，如如何表示xml樹，以矢量的形式，我可以遍歷文件系統使用以下片段罰款，但我不能把我的頭如何構建一個樹形結構？

(defn trav [dir] 
    (if (.isDirectory dir) 
    (do 
     (println (.getName dir)) 
     (doseq [file (.listFiles dir)] 
     (if (.isDirectory file) 
      (trav file)))  
    ))) 

Answer 1

這個怎麼樣？

(defstruct file :file) 
(defstruct dir :file :contents) 

(defn file-tree 
    [#^File file] 
    (if (.isDirectory file) 
    (struct dir file (vec (map file-tree (.listFiles file)))) 
    (struct file file)))

如果查詢生成的地圖爲:file你得到這個節點後面的文件項。如果您要求:contents並獲得nil，則它是一個文件。一個向量表示一個目錄。

正如卡爾所說：也許file-seq更合適。

Answer 2

我並不真的擅長於此下去，但...

你意識到已經有一個「內置」功能把一個目錄樹成一個序列？

參見http://richhickey.github.com/clojure/clojure.core-api.html#clojure.core/file-seq。

也許這將滿足您的需求。否則，我們會等到真正聰明的Clojurians出現。