gistfile1.clj

(let [result {:AR 6, :AU 2, :BG 1, :BN 1, :BO 2, :BR 8, :CA 5, :CH 1, :CL 18,
              :CN 4, :CO 9, :CR 3, :CU 1, :CV 1, :CZ 1, :DE 14, :EC 3, :EE 1,
              :ES 8, :FR 8, :GB 14, :GE 1, :GR 1, :GT 15, :HK 5, :HN 1, :HT 1,
              :ID 89, :IE 1, :IN 5, :IQ 2, :IT 5, :JP 14, :KE 1, :KR 3, :KW 4,
              :LR 1, :MT 1, :MX 81, :MY 6, :NG 2, :NL 10, :NO 1, :PA 1, :PE 11,
              :PH 2, :RO 47, :RU 1, :SE 3, :SG 7, :SV 3, :TR 5, :TZ 5, :US 332,
              :UZ 1, :VE 3, :ZA 2}] 
  (into (sorted-map-by (fn [key1 key2]
                         (> (get result key1)
                            (get result key2)))) result))


=> {:US 332, :ID 89, :MX 81, :RO 47, :CL 18, :GT 15, :JP 14, :PE 11, :NL 10, 
:CO 9, :ES 8, :SG 7, :MY 6, :IN 5, :KW 4, :VE 3, :IQ 2, :UZ 1}