Clojure: anahtar kelimelere karma-harita anahtar dizeleri dönüştürün?

Question

Ben Aleph kullanarak REDIS veri çekiyorum:

(apply hash-map @(@r [:hgetall (key-medication id)])) 

sorun bu veri geliyor geri dizeleri ile anahtarlar için, örneğin:

({"name" "Tylenol", "how" "instructions"}) 

ben olmasını gerektiğinde:

({: adı "Tylenol",: nasıl "talimatları})

Ben daha önce aracılığıyla yeni bir haritanın oluşturulması edildi:

{: adı (m "name"),: nasıl (m "nasıl")}

Ama bu büyük bir miktar için verimsizdir anahtarlar.

orada varsa bunu yapan bir fonksiyon? Ya da her döngü var?

(keyword "foo") 
=> :foo 

yüzden bu fonksiyonu kullanarak haritadaki tüm anahtarları dönüştüren sadece bir olgu var:

Answer 1

uygun anahtar kelimeler içine Dizeleri dönüştüren keyword adlı yararlı işlevi yoktur.

Muhtemelen bunun için Strüktür kırıcı bir liste anlama kullanmayı tercih şey gibi: Çok hassas zipmap kullanarak bunu başarabilirsiniz

(into {} 
    (for [[k v] my-map] 
    [(keyword k) v])) 

Answer 2

:

(defn modify-keys [f m] (zipmap (map f (keys m)) (vals m))) 
(modify-keys keyword {"name" "Tylenol", "how" "instructions"}) 
; {:how "instructions", :name "Tylenol"} 

Temelde, zipmap oluşturmanızı sağlar ayrı ayrı anahtarları ve değerleri belirleyerek bir harita.

Answer 3

Ayrıca yinelemeli yanı böylece bu haritayı yürüyecek keywordize-keys

(use 'clojure.walk) 
(keywordize-keys {"name" "Tylenol", "how" "instructions"}) 
;=> {:name "Tylenol", :how "instructions"} 

fonksiyonu ile istenilen sonucu elde etmek clojure.walk kütüphanesini kullanabilirsiniz o olacak iç içe harita çok

yılında "keywordize" tuşları http://clojuredocs.org/clojure_core/clojure.walk/keywordize-keys

Answer 4

Ben clojure.walk/keywordize-keys ne istediğiniz, djhworld katılıyorum. Bu clojure.walk/keywordize-keys kaynak koduna Bakmak değer

:

(defn keywordize-keys 
    "Recursively transforms all map keys from strings to keywords." 
    [m] 
    (let [f (fn [[k v]] (if (string? k) [(keyword k) v] [k v]))] 
    (clojure.walk/postwalk (fn [x] (if (map? x) (into {} (map f x)) x)) m))) 

ters dönüşüm java birlikte çalışma için bazen kullanışlıdır:

(defn stringify-keys 
    "Recursively transforms all map keys from keywords to strings." 
    [m] 
    (let [f (fn [[k v]] (if (keyword? k) [(name k) v] [k v]))] 
    (clojure.walk/postwalk (fn [x] (if (map? x) (into {} (map f x)) x)) m))) 

Answer 5

Ben ikinci Mikera en into based answer @.Alternatif olarak, değil, en özlü ama başka bir seçenek kullanılarak doç + dissoc/olacağını azaltmak:

(reduce #(dissoc (assoc %1 (keyword %2) (get %1 %2)) %2) my-map (keys may-map)) 

Answer 6

Belki de gelen veriler json ise ve clojure.data.json kullanıyorsanız, Hem CSV belirtebilirsiniz dikkati çekiyor key-fn ve dize (docs) ayrıştırma sonuçları manipüle etmek için bir value-fn -

;; Examples from the docs 

(ns example 
    (:require [clojure.data.json :as json])) 


(json/read-str "{\"a\":1,\"b\":2}" :key-fn keyword) 
;;=> {:a 1, :b 2} 

(json/read-str "{\"a\":1,\"b\":2}" :key-fn #(keyword "com.example" %)) 
;;=> {:com.example/a 1, :com.example/b 2}