Clojureのは、ディレクトリ階層を作成する - ではなく、手続きの方法で

Question

だが、私はClojureの中に次のディレクトリ構造を作成する必要がありましょう：

a 
\--b 
| \--b1 
| \--b2 
\--c 
    \-c1 

の代わりに、以下のような手続きをやって：

(def a (File. "a")) 
(.mkdir a) 
(def b (File. a "b")) 
(.mkdir b) 
;; ... 

...何とか1が一挙に階層を作成し、その後宣言データ、上記のようなアクションを表現し、する巧妙な方法は何ですか？

Answer 1

迅速かつ簡単な方法は、それまでにMKDIRを作成し、マッピングするためのdirsのベクトルを作るために次のようになります。

user> (map #(.mkdir (java.io.File. %)) ["a", "a/b" "a/b/c"]) 
(true true true) 

たり、ツリーとしてあなたのディレクトリ構造を指定して作る、それを歩いてジッパーを使用することができます途中のdirs：

(def dirs ["a" ["b" ["b1" "b2"]] ["c" ["c1"]]]) 
(defn make-dir-tree [original] 
    (loop [loc (zip/vector-zip original)] 
    (if (zip/end? loc) 
     (zip/root loc) 
     (recur (zip/next 
       (do (if (not (vector? (zip/node loc))) 
        (let [path (apply str (interpose "/" (butlast (map first (zip/path loc))))) 
          name (zip/node loc)] 
         (if (empty? path) 
         (.mkdir (java.io.File. name)) 
         (.mkdir (java.io.File. (str path "/" name)))))) 
        loc)))))) 
(make-dir-tree dirs) 

です。

arthur@a:~/hello$ find a 
a 
a/c 
a/c/c1 
a/b 
a/b/c 
a/b/b2 
a/b/b1 

多くの一般的なシステム管理を行っている場合は、より重いものが順番になる場合があります。 （それが曇ったものの方に傾く傾向があるが）pallet projectは、ホストされた物理的およびクラウドシステム上のすべての種類のシステム管理を行うためのライブラリです。具体的には