Question

我有一个嵌套的地图，其结构如下（Clojurescript）：

{"6841"
 {"primaryTitle" "First name",
  "secondaryTitle" "last name"},
 "7944"
 {"primaryTitle" "Test 2 first name",
  "secondaryTitle" "Test 2 last name"}}

然后我使用嵌套地图内的键对地图进行排序，如下所示：

(defn compare-title [x y]
  (compare [(get (second x) "primaryTitle") (get (second x) "secondaryTitle")]
           [(get (second y) "primaryTitle") (get (second y) "secondaryTitle")]))

(sort compare-title @loaded-assets)

到目前为止，排序工作正常，但是由于排序功能返回的数据结构如下：

    ["6841"
     {"primaryTitle" "First name",
      "secondaryTitle" "last name"}],
    ["7944"
     {"primaryTitle" "Test 2 first name",
      "secondaryTitle" "Test 2 last name"}]}

我必须使用into {}将地图转换回初始结构：

(into {} (sort compare-title my-map))

但这完全颠倒了按排序进行的排序。我尝试将 into {}替换为：

flatten（将其转换为列表）
apply hash-map（其行为类似于into {}）
reduce hash-map（保留顺序，但将每个地图深深地嵌套在一起）

那么，可以在保留结构的同时对地图进行排序吗？还是在保留sort返回的排序结构的同时又转换回上述原始结构？

Answer 1

您可以使用priority-map

{{1}}

Answer 2

如前所述，映射不能按值排序。它们可以按键排序。这是最简单的方法with some helper functions：

(ns tst.demo.core
  (:use demo.core tupelo.core tupelo.test))

(def data
  {"6841"
   {"primaryTitle"   "First name",
    "secondaryTitle" "last name"},
   "7944"
   {"primaryTitle"   "Test 2 first name",
    "secondaryTitle" "Test 2 last name"}})

(def data-sorted ; maybe use `postwalk` instead
  (->sorted-map
    (map-vals data ->sorted-map)))

(dotest
  (is= data-sorted
    {"6841" {"primaryTitle"   "First name",
             "secondaryTitle" "last name"},
     "7944" {"primaryTitle"   "Test 2 first name",
             "secondaryTitle" "Test 2 last name"}}))

如果要按主要/次要标题排序，请将这两个项目放在“排序键”中，然后根据该内容排序：

(ns tst.demo.core
  (:use demo.core tupelo.core tupelo.test))

(def all-data {"7944" {"primaryTitle"   "Test 2 first name"
                       "secondaryTitle" "Test 2 last name"}
               "6841" {"primaryTitle"   "First name"
                       "secondaryTitle" "last name"}})

(dotest
  (let [data-keyed  (forv [entry all-data]
                      (let [[id title-map] entry]
                        {:sort-key [(grab "primaryTitle" title-map)
                                    (grab "secondaryTitle" title-map)]
                         :id       id}))
        data-sorted (vec (sort-by :sort-key data-keyed))]

    (is= (spy-pretty data-keyed)
      [{:sort-key ["Test 2 first name" "Test 2 last name"] :id "7944"}
       {:sort-key ["First name" "last name"] :id "6841"}])

    (is= (spy-pretty data-sorted)
      [{:sort-key ["First name" "last name"] :id "6841"}
       {:sort-key ["Test 2 first name" "Test 2 last name"] :id "7944"}])))

Clojure：放入{}不会保留排序顺序

2 个答案: