[perf] incseq.perm-impl/invert 2x perf boost

Measured from ~22µs to ~12µs
hyperfiddle · Aug 13, 2024 · 2e6c9ec · 2e6c9ec
1 parent 1eb4aaa
commit 2e6c9ec
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/hyperfiddle/incseq/perm_impl.cljc b/src/hyperfiddle/incseq/perm_impl.cljc
@@ -1,8 +1,9 @@
 (ns hyperfiddle.incseq.perm-impl
   (:refer-clojure :exclude [cycle])
-  (:require [hyperfiddle.rcf :refer [tests]]))
+  (:require [hyperfiddle.rcf :refer [tests]]
+            [clojure.set]))
 
-(defn inverse [p] (into {} (map (juxt val key)) p))
+(def inverse clojure.set/map-invert)
 
 (defn cycle
   ([_] {})