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

update readme examples

Browse source
This commit is contained in:
Erick G. Islas-Osuna 2022-06-12 14:24:13 -05:00
parent 67e8680602
commit e6451ba33b
No known key found for this signature in database
GPG key ID: 95CD2097762D4C86
1 changed files with 2 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
README.md
View file

@ -18,17 +18,7 @@ Consider these examples:
:b [{:dd 4}]}) :b [{:dd 4}]})
;; Manual Clojure ;; Manual Clojure
(defn map-vals [m afn] (update-vals data (fn [vals] (map #(update-vals % inc) vals)))
(->> m (map (fn [[k v]] [k (afn v)])) (into (empty m))))
(map-vals data
(fn [v]
(mapv
(fn [m]
(map-vals
m
(fn [v] (if (even? v) (inc v) v))))
v)))
;; Specter ;; Specter
(transform [MAP-VALS ALL MAP-VALS even?] inc data) (transform [MAP-VALS ALL MAP-VALS even?] inc data)
@ -40,7 +30,7 @@ Consider these examples:
(def data {:a [1 2 3]}) (def data {:a [1 2 3]})
;; Manual Clojure ;; Manual Clojure
(update data :a (fn [v] (into (if v v []) [4 5]))) (update data :a concat [4 5])
;; Specter ;; Specter
(setval [:a END] [4 5] data) (setval [:a END] [4 5] data)