Print all threads grouped by pattern

all_threads.clj

(defn- all-threads []
  (transduce
   identity
   (fn
     ([]
      {})

     ([m]
      (into (flatland.ordered.map/ordered-map)
            (cons
             [:total (reduce + (vals m))]
             (sort-by #(- (second %)) m))))

     ([m ^Thread thread]
      (let [thread-name (clojure.string/replace (.getName thread) #"\d+" "")]
        (update m thread-name (fnil inc 0)))))
   (keys (Thread/getAllStackTraces))))