क्लोजर में एक सतत मानचित्र को फ़िल्टर कैसे करें?

Question

मेरे पास एक सतत नक्शा है जिसे मैं फ़िल्टर करना चाहता हूं। कुछ इस तरह:

(filter #(-> % val (= 1)) {:a 1 :b 1 :c 2}) 

ऊपर ([:a 1] [:b 1]) के रूप में बाहर आता है (मानचित्र प्रविष्टियों की एक आलसी अनुक्रम)। हालांकि मैं {:a 1 :b 1} प्राप्त करना चाहता हूं।

मैं मानचित्र को कैसे फ़िल्टर कर सकता हूं ताकि यह मानचित्र प्रविष्टियों के अनुक्रम से इसे पुनर्निर्माण किए बिना मानचित्र बना रहता है?

Answer 1

और एक और एक:

(let [m {:a 1 :b 2 :c 1}] 
    (select-keys m (for [[k v] m :when (= v 1)] k))) 

Answer 2

(into {} (filter #(-> % val (= 1)) {:a 1 :b 1 :c 2})) 

बेशक इस करता नक्शा प्रविष्टियों के अनुक्रम से नक्शा पुनर्निर्माण, लेकिन वहाँ उसके चारों ओर कोई रास्ता नहीं है। यदि आप मूल्यों से प्रविष्टियों को फ़िल्टर करने जा रहे हैं, तो आपको यह देखने के लिए एक से एक करके जाना होगा कि कौन से मूल्य आपके पूर्वानुमान से मेल खाते हैं और कौन नहीं।

अपडेट किया गया (नीचे टिप्पणी देखें):

नव शुरू की keep समारोह के साथ

, स्रोत जिनमें से आप देख सकते हैं here (Clojure 1.1 में ठीक काम करना चाहिए अगर आप backport करना चाहते हैं), यह एक अच्छा की तरह लगता है जिस तरह से यह के बारे में जाने के लिए अगर आप एक कुंजी रूप nil का उपयोग नहीं करते:

(let [m {:a 1 :b 1 :c 2}] 
    (apply dissoc m (keep #(-> % val (= 1) (if nil (key %))) m))) 
; => {:a 1, :b 1} 

इसके अलावा, अगर आप वास्तव में अपने नक्शे के पुनर्निर्माण से संबंधित एक मंदी देख पा रहे हैं, तो आप के पुनर्निर्माण कदम पर एक क्षणिक मानचित्र का उपयोग कर सकते :

(persistent! (loop [m (transient {}) 
        to-go (seq [[:a 1] [:b 2]])] 
       (if to-go 
       (recur (apply assoc! m (first to-go)) 
         (next to-go)) 
       m))) 
; => {:a 1, :b 2} 

Answer 3

मीकल Marczyk को अपनी टिप्पणी प्रति

:

(defn filter* [f map] 
    (reduce (fn [m [k v :as x]] 
      (if-not (f x) 
       (dissoc m k) 
       m)) 
      map map)) 

user> (filter* #(-> % val (= 1)) {:a 1 :b 1 :c 2}) 
{:a 1, :b 1} 

मैं नहीं दिख रहा है कि आप इस बनाम मीकल के संस्करण के साथ ज्यादा हासिल करने के लिए जा रहे हैं।

Answer 4

आवश्यकता सभी प्रविष्टियों पार करने के लिए, लेकिन Clojures लगातार नक्शे का लाभ उठाने कर सकते हैं:

(apply dissoc my-map (for [[k v] my-map :when (not= v 1)] k)) 

Answer 5

मैं kotarak के संस्करण के आधार पर इस बात के लिए मैक्रो पर अपने आप की कोशिश की। यह मेरा पहला मैक्रो कुछ उपयोगी कर रहा है, इसलिए कृपया मेरे साथ भालू और टिप्पणियों का स्वागत है।

(defmacro filter-map [bindings pred m] 
    `(select-keys ~m 
    (for [~bindings ~m 
     :when ~pred] 
     ~(first bindings) 
    ) 
) 
) 

उदाहरण

user=> (filter-map [key val] (even? (:attr val)) {:a {:attr 2} :b {:attr 3} :c {:attr 4}}) 
{:c {:attr 4}, :a {:attr 2}}