gistfile1.clj

;; Given a class name, which methods have changed the most?
(->> (q '[:find ?name (count ?sha)
          :in $ ?class-name
          :where
          [?codeq :java/class-name ?class-name]
          [?mcodeq :codeq/parent ?codeq]
          [?mcodeq :java/method ?codename]
          [?codename :code/name ?name]
          [?mcodeq :codeq/code ?code]
          [?code :code/sha ?sha]]
        db "Compiler")
     (sort-by second)
     reverse
     (take 10)
     clojure.pprint/pprint)

(sort-by (comp - second))