Skip to content

Instantly share code, notes, and snippets.

@oranenj

oranenj/20091201-libsvm-model-parser.clj

Forked from angerman/20091201-libsvm-model-parser.clj
Created December 3, 2009 12:13
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 oranenj/248106 to your computer and use it in GitHub Desktop.
Save oranenj/248106 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
20091201-libsvm-model-parser.clj
(defn compute-metrics [[header lines]]
((fn [[ln & lns*] features experiments]
(printf "%d, %d\n" experiments (count features))
(if (not ln)
(assoc header
:experiments experiments
:features features)
(recur lns*
(time (doall (lazy-combine-sorted features (extract-features ln))))
(inc experiments))))
lines nil 0))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment