github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-28 04:38:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

⚡ Improve performance of enumerate data helper.

Browse Source
This commit is contained in:
Andrey Antukh 2021-03-15 08:38:01 +01:00
parent 84b7a2de0b
commit f7d0383919
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
common/app/common/data.cljc
View File

@ -42,7 +42,6 @@
([a b & rest]
(reduce deep-merge a (cons b rest))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Data Structures Manipulation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -70,14 +69,14 @@
(defn enumerate
([items] (enumerate items 0))
([items start]
(loop [idx start
(loop [idx start
items items
res []]
res (transient [])]
(if (empty? items)
res
(persistent! res)
(recur (inc idx)
(rest items)
(conj res [idx (first items)]))))))
(conj! res [idx (first items)]))))))
(defn seek
([pred coll]