map-map
, map-map-keys
etmap-map-values
Je ne connais aucune fonction existante dans Clojure pour cela, mais voici une implémentation de cette fonction car map-map-values
vous êtes libre de copier. Il est livré avec deux fonctions étroitement liées, map-map
et map-map-keys
, qui sont également absentes de la bibliothèque standard:
(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) )
Usage
Vous pouvez appeler map-map-values
comme ceci:
(map-map-values str {:a 1 :b 2})
;; => {:a "1", :b "2"}
Et les deux autres fonctions comme celle-ci:
(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}
Implémentations alternatives
Si vous voulez seulement map-map-keys
ou map-map-values
, sans la map-map
fonction plus générale , vous pouvez utiliser ces implémentations, qui ne reposent pas sur 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)} )))
En outre, voici une implémentation alternative de map-map
qui est basée sur clojure.walk/walk
au lieu de into
, si vous préférez cette formulation:
(defn map-map [f m]
(clojure.walk/walk #(apply f %) identity m) )
Versions parallèles - pmap-map
, etc.
Il existe également des versions parallèles de ces fonctions si vous en avez besoin. Ils utilisent simplement à la pmap
place de 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) )