Clojure排序映射超过值(Clojure sort map over value)

 我正在尝试对值进行排序。 
 
 输入映射如下所示： 
 
{:Blabla 1, :foo 1, :bla-bla 1, :Bla 2, :bla/bla 1, :bla 4, :blub 2, :hello 1, :Foo 2}
 
 输出应如下所示： 
 
{:bla 4 :Bla 2 :blub 2 :Foo 2 :Blabla 1 :bla-bla 1 :bla/bla 1 :foo 1 :hello 1}
 
 我在这里的文档中使用了sorted-map-by： http ： //clojuredocs.org/clojure.core/sorted-map-by 
 
(defn sort-keyword-list [texts]
  (let [results (word-counts texts)]
       ;results is now {:Blabla 1, :foo 1, :bla-bla 1, :Bla 2, :bla/bla 1, :bla 4, :blub 2, :hello 1, :Foo 2}
       (into (sorted-map-by (fn [key1 key2]
                                (compare [(get results key2) key2]
                                         [(get results key1) key1])))
             results))
  )
 
 好吧，我发现这个解决方案只有在关键字里面没有像“/”或“ - ”这样的特殊字符时才有效。 这是一个已知的错误？ 
 
 那么如何在不编写自己的缓慢排序算法的情况下快速按值排序地图？ 

I'm trying to sort a map over the values.
 
The input-map looks like:
 
{:Blabla 1, :foo 1, :bla-bla 1, :Bla 2, :bla/bla 1, :bla 4, :blub 2, :hello 1, :Foo 2}
 
The output should look like:
 
{:bla 4 :Bla 2 :blub 2 :Foo 2 :Blabla 1 :bla-bla 1 :bla/bla 1 :foo 1 :hello 1}
 
I used sorted-map-by like in the documentation here: http://clojuredocs.org/clojure.core/sorted-map-by
 
(defn sort-keyword-list [texts]
  (let [results (word-counts texts)]
       ;results is now {:Blabla 1, :foo 1, :bla-bla 1, :Bla 2, :bla/bla 1, :bla 4, :blub 2, :hello 1, :Foo 2}
       (into (sorted-map-by (fn [key1 key2]
                                (compare [(get results key2) key2]
                                         [(get results key1) key1])))
             results))
  )
 
Well I found out that this solution works only if the keywords have no special characters like "/" or "-" inside. Is this a known bug?
 
So how can I sort a map by values quickly without writing a own and slowly sort-algorithm?

原文：https://stackoverflow.com/questions/26327715