我有一个有序映射,如下所示:
{:a 1 :b 2 :c 3}
假设给出一系列排序列表:
[:c :a]
我希望找到最简单的方法来获取:
{c: 3 :a 1}
: 有人知道如何做到这一点吗?
更新:
(defn asort [amap order] (conj {} (select-keys amap order)))
(asort {:a 1 :b 2 :c 3} [:c :a] )
我有一个有序映射,如下所示:
{:a 1 :b 2 :c 3}
假设给出一系列排序列表:
[:c :a]
我希望找到最简单的方法来获取:
{c: 3 :a 1}
: 有人知道如何做到这一点吗?
更新:
(defn asort [amap order] (conj {} (select-keys amap order)))
(asort {:a 1 :b 2 :c 3} [:c :a] )
我可能会将顺序向量转换为哈希映射以快速查找顺序索引,从而得到以下结果:
{ :c 0 :a 1 }
有几种方法可以从一个序列/向量(比如使用map
与range
,然后使用assoc
将结果缩减为一个{})自动执行此操作。将该操作的结果(或上面的字面值映射)绑定到本地变量中(使用let
),我们称其为order-map
。
然后过滤原始映射(m)的条目,只包括在排序中包含的条目:
(select-keys m order)
然后将过滤表达式的结果放回一个新的排序映射中(使用sorted-map-by
),并使用类似以下的比较器函数:
(fn [a b] (compare (order-map a) (order-map b)))
请注意,如果你实际上不需要一个 map,而只是需要一个序列,你可以使用 sort-by
函数并使用与原来的有序 map 相同的键函数。
将这些组合在一起,你会得到:
(defn asort [m order]
(let [order-map (apply hash-map (interleave order (range)))]
(conj
(sorted-map-by #(compare (order-map %1) (order-map %2))) ; empty map with the desired ordering
(select-keys m order))))
并且:
=> (asort (apply sorted-map (interleave (range 0 50) (range 0 50))) (range 32 0 -1))
{32 32, 31 31, 30 30, 29 29, 28 28, 27 27, 26 26, 25 25, 24 24, 23 23, 22 22, 21 21, 20 20, 19 19, 18 18, 17 17, 16 16, 15 15, 14 14, 13 13, 12 12, 11 11, 10 10, 9 9, 8 8, 7 7, 6 6, 5 5, 4 4, 3 3, 2 2, 1 1}
以下是实现的步骤:
(defn asort [amap order]
(conj {} (select-keys amap order)))
clojure.core> (asort {:a 1 :b 2 :c 3} [:c :a])
{:c 3, :a 1}
clojure.core> (asort {:a 1 :b 2 :c 3} [:a :c])
{:a 1, :c 3}
更新:如评论中所述,此解决方案仅适用于小型地图(请参见HASHTABLE_TRESHOLD
),最终依赖于基础数据结构的隐藏实现细节。接受的答案是正确的。
(asort (apply sorted-map (interleave (range 0 50) (range 0 50))) (range 32 0 -1))
应该生成 { 32 32 31 31 ... 1 1 }
,但在我的电脑上却不是这样。 - pmdj
order-map
的东西上。稍微更新了一下解释。你需要这样做:(let [order-map { :c 0 :a 1 }]
然后在该 let 块内完成其余操作。 - pmdj