gistfile1.clj

(defn categorize-code [files]
    (reduce (fn [result code]
           (try
            (let [r (*sandbox*  code)]
	    (update-in result [:good] conj [code r])
              [code (pr-str r)])
            (catch Exception e
              (update-in result [:bad] conj code))))
	      {}
         (find-lines text files)))