luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make non 1 or 2 count case update-last faster for vectors, change updateextremes to be specific to persistentvector

Browse source
This commit is contained in:
Nathan Marz 2016-06-01 12:54:59 -04:00
parent 2fe16769ff
commit 187299b3d9
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/clj/com/rpl/specter/impl.cljx
View file

@ -465,7 +465,7 @@
(count v)) (count v))
(extend-protocol UpdateExtremes (extend-protocol UpdateExtremes
#+clj clojure.lang.IPersistentVector #+cljs cljs.core/PersistentVector #+clj clojure.lang.PersistentVector #+cljs cljs.core/PersistentVector
(update-first [v afn] (update-first [v afn]
(let [val (nth v 0)] (let [val (nth v 0)]
(assoc v 0 (afn val)) (assoc v 0 (afn val))
@ -475,8 +475,9 @@
(case c (case c
1 (let [[e] v] [(afn e)]) 1 (let [[e] v] [(afn e)])
2 (let [[e1 e2] v] [e1 (afn e2)]) 2 (let [[e1 e2] v] [e1 (afn e2)])
(conj (pop v) (afn (peek v))) (let [i (dec c)]
))) (assoc v i (afn (nth v i)))
))))
#+clj Object #+cljs default #+clj Object #+cljs default
(update-first [l val] (update-first [l val]
(update-first-list l val)) (update-first-list l val))