Skip to content

Instantly share code, notes, and snippets.

@Licenser

Licenser/gist:349786

Created March 31, 2010 00:29
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save Licenser/349786 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save Licenser/349786 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment