Question

(let [mymap (into {} (for [x (shuffle (rest (clojure.string/split "abcdefghijklmnopqrstuvwxyz" #"")))]
                       {x {:idx (rand-int 24)}}))]
  (into (sorted-map-by (fn [k1 k2]
                         (compare [(get-in mymap [k1 :idx]) k1]
                                  [(get-in mymap [k2 :idx]) k2])))
        mymap))

或

(let [mymap (into {} (for [x (shuffle (rest (clojure.string/split "abcdefghijklmnopqrstuvwxyz" #"")))]
                       {x {:idx (rand-int 24)}}))]
  (->> mymap
       (sort-by (fn [[_ m]] (:idx m)))
       (into (array-map))))

=＆GT; {＆＃34; d＆＃34; {：idx 22}，＆＃34; n＆＃34; {：idx 22}，＆＃34; z＆＃34; {：idx 14}，＆＃34; w＆＃34; {：idx 11}，＆＃34; s＆＃34; {：idx 17}，＆＃34; f＆＃34; {：idx 20}，＆＃34; e＆＃34; {：idx 19}，＆＃34; q＆＃34; {：idx 12}，＆＃34; p＆＃34; {：idx 10}，＆＃34; j＆＃34; {：idx 0}，＆＃34; x＆＃34; {：idx 20}，＆＃34; v＆＃34; {：idx 14}，＆＃34; a＆＃34; {：idx 1}，＆＃34; t＆＃34; {：idx 13}，＆＃34;我＆＃34; {：idx 21}，＆＃34; k＆＃34; {：idx 16}，＆＃34; b＆＃34; {：idx 23}，＆＃34; r＆＃34; {：idx 3}，＆＃34; y＆＃34; {：idx 18}，＆＃34; g＆＃34; {：idx 0}，＆＃34; l＆＃34; {：idx 16}，＆＃34; u＆＃34; {：idx 20}，＆＃34; h＆＃34; {：idx 10}，＆＃34; m＆＃34; {：idx 16}，＆＃34; o＆＃34; {：idx 11}，＆＃34; c＆＃34; {：idx 4}}

如果我们将金额限制为8即可。

(let [mymap (into {} (for [x (shuffle (rest (clojure.string/split "abcdefghijklmnopqrstuvwxyz" #"")))]
                       {x (rand-int 24)}))]
  (into (sorted-map-by (fn [k1 k2]
                         (compare [(get mymap k1) k1]
                                  [(get mymap k2) k2])))
        (take 8 mymap)))

{＆＃34; Z＆＃34; {：idx 1}，＆＃34; q＆＃34; {：idx 6}，＆＃34; n＆＃34; {：idx 7}，＆＃34; s＆＃34; {：idx 7}，＆＃34; f＆＃34; {：idx 9}，＆＃34; d＆＃34; {：idx 17}，＆＃34; w＆＃34; {：idx 18}，＆＃34; e＆＃34; {：idx 21}}

可能与Clojurescript Array-Map order

相关联

Answer 1

您使用的是什么版本的clojurescript？ cljs 0.0-3308中的第一个表单按预期保持排序顺序：

    (println *clojurescript-version*) ;=>  "0.0-3308"

    (let [mymap (into {} (for [x (shuffle (rest (clojure.string/split "abcdefghijklmnopqrstuvwxyz" #"")))]
                           {x {:idx (rand-int 24)}}))]
      (into (sorted-map-by (fn [k1 k2]
                             (compare [(get-in mymap [k1 :idx]) k1]
                                      [(get-in mymap [k2 :idx]) k2])))
            mymap))
    ;=> {"d" {:idx 0}, "i" {:idx 0}, "w" {:idx 5}, "n" {:idx 6}, "q" {:idx 9}, "y" {:idx 9}, "k" {:idx 10}, "m" {:idx 10}, "x" {:idx 10}, "c" {:idx 12}, "h" {:idx 12}, "l" {:idx 13}, "v" {:idx 14}, "s" {:idx 15}, "z" {:idx 16}, "j" {:idx 17}, "p" {:idx 17}, "t" {:idx 17}, "o" {:idx 18}, "r" {:idx 19}, "b" {:idx 20}, "e" {:idx 20}, "a" {:idx 21}, "f" {:idx 21}, "g" {:idx 22}, "u" {:idx 23}}

您使用的是版本早于2411 吗？这是第一个版本，其中包含对您链接的问题的答案中解释的问题的修复。它已在this commit上修复，该版本于2411版首次发布。

ClojureScript数组映射和排序映射错误？

1 个答案: