Erstellen einer verschachtelten Clojure Map durch Aufruf der Funktion mit ihren Schlüsseln und Werten

Question

Ich stecke mit einem Problem fest. Also das Problem ist.

• Ich habe eine Karte wie diese {:first {"value1" "value2" "value3"...} :second {"value1" "value2" "value3"...}....}.
• ich eine Funktion haben, die eine Anfrage an den Server mit den Parametern (first&value1) und zurück einige Informationen (es muss mit jedem Schlüssel machen Anfrage und ihre Werte (first&value1, first&value2 ...second&value1...))

• Nächster Schritt ist es, neue Karte zu erzeugen, wie:

  {:first 
      {:value1 
      {subvalue1, subvalue2 ..} 
      :value2 
      {subvalue2-1,subvalue2-2}}  
  :second 
      {:value3 
      {:subvalue3-1,:subvalue3-2}..}..} 
  

Teilwerte ist das Ergebnis einer Anfrage mit jeder Taste und jedem Element seines Wertes zu machen. Und ich möchte die Operation noch einmal wiederholen (mit 3 Parametern, wenn ich eine Anfrage an den Server), um 4 mal verschachtelte Karte zu erreichen: {first {second {third {fourth}}}}. Vielleicht gibt mir jemand hilfreiche Ratschläge, wie es geht.

Answer 1

Diese Funktion ist ein bisschen langatmig, aber das tut, was Sie es tun müssen, um:

(defn rec-update 
    [m f] 
    (let [g (fn g [m args] 
      (into {} 
        (for [[k v] m] 
        (if (instance? java.util.Map v) 
         [k (g v (conj args (name k)))] 
         [k (into {} (map #(let [args (into args [(name k) (name %)])] 
              [(keyword %) (f args)]) 
             v))]))))] 
    (g m []))) 

Der f Parameter sollte eine Funktion sein, die eine Sammlung von params nimmt, und gibt einen Vektor der Ergebnisse. Hier ist ein Beispiel, das Zufallszahlen von Zufallsantworten nimmt:

(defn make-request 
    [params] 
    (vec (repeatedly (+ 1 (rand-int 3)) #(rand-nth ["r1" "r2" "r3"])))) 

Obwohl das folgende Beispiel nicht zeigen, die params diese Funktion gegeben wird in der Tat die verschachtelten Werte bis zu diesem Punkt.

benutzen:

(def m {:first ["val1" "val2" "val3"], :second ["val4" "val5"]}) 

(rec-update m make-request) 
=> 
{:first {:val1 ["r2" "r2" "r3"], :val2 ["r2" "r2"], :val3 ["r1" "r3"]}, 
:second {:val4 ["r3" "r3"], :val5 ["r2" "r1"]}} 

Run wieder auf das Ergebnis:

(rec-update *1 make-request) 
=> 
{:first {:val1 {:r2 ["r1" "r3" "r2"], :r3 ["r3" "r2"]}, 
     :val2 {:r2 ["r1" "r1"]}, 
     :val3 {:r1 ["r2"], :r3 ["r1" "r2" "r3"]}}, 
:second {:val4 {:r3 ["r3" "r2"]}, :val5 {:r2 ["r1"], :r1 ["r2" "r3"]}}} 

Wie Sie sehen können, alle doppelten Werte aus der Anforderung nur einmal in der Ergebnis Karte dargestellt werden zurückgegeben wird.