Skip to content

Instantly share code, notes, and snippets.

@sjl

sjl/gist:792702

Created January 24, 2011 02:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sjl/792702 to your computer and use it in GitHub Desktop.
Save sjl/792702 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn usable-personalities
[personalities]
(filter #(> (:total %) 5) personalities))
(defn render-personality
[personality]
(str (:stddev personality)
","
(:score personality)
","
(:uid personality)))
(defn db-dump-personalities
[filename]
(write-lines filename (cons "Stddev,Score,UID"
(map render-personality
(usable-personalities (db-personality-users))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment