deps.clj

(ns deps)

(def projects {:ProjectA {:deps [:ProjectB]
                          :desc "Web tier"}
               :ProjectB {:desc "Service tier"}
               :ProjectC {:deps [:ProjectB]
                          :desc "Persistence"}})

(defn dep [s name sup]
     (println "ini" s name sup)
     (if (contains? s name)
       s
       (if (contains? sup :deps)
         (conj (reduce #(dep (set %1) %2 (%2 projects)) s (:deps sup)) name)
         (cons name (reverse s)))))
     
(let [todep 
       (reduce #(dep (set %1) %2 (%2 projects)) #{} (keys projects))]
  (println todep))