Clojure 2024调查问卷中分享您的想法!

欢迎!请参阅关于页面以获取更多有关如何使用本站的简介。

+1
Clojure
编辑

对于相对较小的xrel和较少的重命名操作,似乎有一些性能上的提升空间

user> (def xrel {:a 1, :b 2, :c 3})
;; => #'user/xrel
user> (def kmap {:a :z})
;; => #'user/kmap
user> (quick-bench (set/rename-keys xrel kmap))
Evaluation count : 2959512 in 6 samples of 493252 calls.
         Execution time mean : 200.870412 ns
Execution time std-deviation : 0.882651 ns
Execution time lower quantile : 200.116289 ns ( 2.5%)
Execution time upper quantile : 202.248092 ns (97.5%)
               Overhead used : 2.151518 ns

Found 1 outliers in 6 samples (16.6667 %)
low-severe	 1 (16.6667 %)
Variance from outliers : 13.8889 % Variance is moderately inflated by outliers
;; => nil
user> (quick-bench (set/rename-keys2 xrel kmap))
Evaluation count : 9627438 in 6 samples of 1604573 calls.
         Execution time mean : 59.646747 ns
Execution time std-deviation : 0.083186 ns
Execution time lower quantile : 59.540415 ns ( 2.5%)
Execution time upper quantile : 59.723488 ns (97.5%)
                Overhead used : 2.151518 ns
;; => nil
user> 

对于定义为set/rename-keys2的函数

(defn rename-keys2
  "Returns the map with the keys in kmap renamed to the vals in kmap"
  {:added "1.0"}
  [map kmap]
  (reduce-kv
   (fn [m old new]
     (if (contains? map old)
       (-> m
           (assoc new (get map old))
           (dissoc old))
       m)) map kmap))

这样的方法是否可以作为研究改进rename-keys的起始点?

1个回答

0

我认为可能会首先尝试在update-keys的基础上进行构建。

这应该是这样的

(defn rename-keys [m km] (update-keys m #(get km % %)))
在这一点上存在一个微妙的区别,因为`update-keys`总是返回一个映射,即使在`nil`的情况下,而`set/rename-keys`对于`nil`返回`nil`。

此外,`update-keys`版本的执行速度(出人意料地)要慢一些。

user> (quick-bench (clojure.set/rename-keys2 xrel kmap))
评估次数:9637890次,共6个样本,每个样本1606315次调用。
             平均执行时间:59.522351纳秒
    执行时间的标准差:0.059405纳秒
   执行时间的下四分位数:59.452942纳秒(2.5%)
   执行时间的上四分位数:59.580547纳秒(97.5%)
                   使用的开销:2.151518纳秒
;; => nil
user> (quick-bench (clojure.set/rename-keys3 xrel kmap))
评估次数:5567220次,共6个样本,每个样本927870次调用。
             平均执行时间:106.542514纳秒
    执行时间的标准差:1.114478纳秒
   执行时间的下四分位数:105.393362纳秒(2.5%)
   执行时间的上四分位数:107.800880纳秒(97.5%)
                   使用的开销:2.151518纳秒
;; => nil
要在这样的单一键处理多次的映射上进行速度比较是比较困难的。虽然一般来说`update-keys`可能要慢一些,但是我们需要对`rename-keys`的典型用例进行一些思考。在`update-keys`的情况下,我们确定这种需求通常体现在发送和接收信息包的服务器应用程序中,或者处理实体映射需要进行整体键的转换——通常是将字符串键转换为关键字再转换回来。
...