Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 23:49:45 -05:00
Code Issues Activity

⚡ Improve performance of concat operation.

Browse source
This commit is contained in:
Andrey Antukh 2020-02-19 12:04:55 +01:00
parent 86ba4fd083
commit 3ec037cdf4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
common/uxbox/common/data.cljc
View file

@ -28,12 +28,12 @@
(defn concat (defn concat
[& colls] [& colls]
(loop [result (first colls) (loop [result (transient (first colls))
colls (rest colls)] colls (rest colls)]
(if (seq colls) (if (seq colls)
(recur (reduce conj result (first colls)) (recur (reduce conj! result (first colls))
(rest colls)) (rest colls))
result))) (persistent! result))))
(defn enumerate (defn enumerate
([items] (enumerate items 0)) ([items] (enumerate items 0))