Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-11 23:31:21 -05:00
Code Issues Activity

Add optimized version of index-by.

Browse source
This commit is contained in:
Andrey Antukh 2015-12-28 13:31:12 +02:00
parent adbc0c7edd
commit 16eb27b342
1 changed files with 2 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
frontend/uxbox/util/data.cljs
View file

@ -6,47 +6,13 @@
;; Data structure manipulation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; NOTE: commented because tansients are buggy in cljs?
;; (defn index-by
;; "Return a indexed map of the collection
;; keyed by the result of executing the getter
;; over each element of the collection."
;; [coll getter]
;; (let [data (transient {})]
;; (run! #(do
;; (println (getter %))
;; (assoc! data (getter %) %)) coll)
;; (println "test1:" (keys data))
;; (let [r (persistent! data)]
;; (println "test2:" (keys r))
;; r)))
;; (defn index-by
;; "Return a indexed map of the collection
;; keyed by the result of executing the getter
;; over each element of the collection."
;; [coll getter]
;; (let [data (transient {})]
;; (loop [coll coll]
;; (let [item (first coll)]
;; (if item
;; (do
;; (assoc! data (getter item) item)
;; (recur (rest coll)))
;; (let [_ 1 #_(println "test1:" (keys data))
;; r (persistent! data)]
;; (println "test2:" (keys r))
;; r))))))
(defn index-by
"Return a indexed map of the collection
keyed by the result of executing the getter
over each element of the collection."
[coll getter]
(reduce (fn [acc item]
(assoc acc (getter item) item))
{}
coll))
(persistent!
(reduce #(assoc! %1 (getter %2) %2) (transient {}) coll)))
(def ^:static index-by-id #(index-by % :id))