Skip to content

Instantly share code, notes, and snippets.

@viebel viebel/topics-low-rank.clj
Last active Jan 15, 2019

Embed
What would you like to do?
(require '[clojure.string :refer [join]])
(def d (js->clj js/data :keywordize-keys true))
(print
(join "\n"
(->> (:topics d)
(remove #(get-in % [:factors :bad]))
(remove #(<= (:count %) (+ (get-in % [:factors :automated] 0)
(get-in % [:factors :autoEmail] 0)
(get-in % [:factors :reFilt] 0))))
(remove #(not= 0 (get-in % [:factors :childCount])))
(filter #(= (:count %) 1))
(map #(vector (:topicId %) (get-in % [:artifactsRef 0 :topicText]) (:count %)))
(map #(join "," %)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.