map-map
, map-map-keys
imap-map-values
Nie znam żadnej istniejącej funkcji w Clojure do tego, ale oto implementacja tej funkcji, ponieważ map-map-values
możesz ją kopiować. Zawiera dwie ściśle powiązane funkcje map-map
i map-map-keys
, których również brakuje w standardowej bibliotece:
(defn map-map
"Returns a new map with each key-value pair in `m` transformed by `f`. `f` takes the arguments `[key value]` and should return a value castable to a map entry, such as `{transformed-key transformed-value}`."
[f m]
(into (empty m) (map #(apply f %) m)) )
(defn map-map-keys [f m]
(map-map (fn [key value] {(f key) value}) m) )
(defn map-map-values [f m]
(map-map (fn [key value] {key (f value)}) m) )
Stosowanie
Możesz zadzwonić w map-map-values
ten sposób:
(map-map-values str {:a 1 :b 2})
;; => {:a "1", :b "2"}
A pozostałe dwie funkcje, takie jak ta:
(map-map-keys str {:a 1 :b 2})
;; => {":a" 1, ":b" 2}
(map-map (fn [k v] {v k}) {:a 1 :b 2})
;; => {1 :a, 2 :b}
Alternatywne implementacje
Jeśli chcesz map-map-keys
lub map-map-values
bez bardziej ogólnej map-map
funkcji, możesz użyć tych implementacji, które nie polegają na map-map
:
(defn map-map-keys [f m]
(into (empty m)
(for [[key value] m]
{(f key) value} )))
(defn map-map-values [f m]
(into (empty m)
(for [[key value] m]
{key (f value)} )))
Poniżej znajduje się alternatywna implementacja, map-map
która jest oparta na clojure.walk/walk
zamiast into
, jeśli wolisz to sformułowanie:
(defn map-map [f m]
(clojure.walk/walk #(apply f %) identity m) )
Wersje Parellel - pmap-map
itp.
Istnieją również równoległe wersje tych funkcji, jeśli ich potrzebujesz. Po prostu używają pmap
zamiast map
.
(defn pmap-map [f m]
(into (empty m) (pmap #(apply f %) m)) )
(defn pmap-map-keys [f m]
(pmap-map (fn [key value] {(f key) value}) m) )
(defn pmap-map-values [f m]
(pmap-map (fn [key value] {key (f value)}) m) )