clojure में, कैसे एक [बड़ी] वेक्टर में चयनित आइटम के लिए एक समारोह को लागू करने के

Question

मैं एक सदिश राशि v

(def v [1 2 5 8 4 3 8 9 3]) 

मैं चयनित आइटम के लिए समारोह myfn

(defn myfn [x] (+ 1 x)) 

लागू करना चाहते हैं कि मैं उनके सूचकांक idx

(def idx [3 5]) 

मैंनेदेखा हैऔर यह वही नहीं है जो मुझे चाहिए।

आप clojure में MATLAB

v = [1 2 5 8 9 3]; 
idx = [3 5]; 
v(idx) = myfn(v(idx)); 

Answer 1

वेक्टर में क्या करना पसंद है, साहचर्य हैं, ताकि आप कुछ इस तरह कर सकते हैं: (reduce #(update-in %1 [%2] myfn) v idx)

Answer 2

अपडेट किया गया क्योंकि मैं सवाल का गलत मतलब निकाला।

(apply assoc v (mapcat #(vector % (myfn (v %))) idx)) 

है कि, assoc के सूचकांक/नई-मान जोड़ों का एक तर्क सूची का निर्माण:

यहाँ एक और समाधान है। मुझे लगता है कि मंगेज के समाधान शायद बेहतर है।

---

मूल, गलत समाधान

भूल जाते हैं कि वेक्टर v ही अपने सूचकांक की एक समारोह है मत करो। तो:

(map myfn (map v idx)) 

या:

(->> idx (map v) (map myfn)) 

या:

(map (comp myfn v) idx) 

मैं वहाँ भी है एक बहुत ही चालाक शामिल juxt :)

Answer 3

आप उल्लेख "एक [जवाब यकीन बड़ा] वेक्टर ", तो क्या आप प्रदर्शन के बारे में परवाह करते हैं? आप बाहर transients के बारे में पता लगाने के लिए चाहते हो सकता है:

(persistent! 
    (reduce (fn [v i] (assoc! v i (myfn (get v i)))) 
      (transient v) 
      idx)) 

या, यदि आप शैली पाशन पसंद करते हैं, इस एक ही बात करता है:

(loop [v (transient v), [i & is :as idx] idx] 
    (if (empty? idx) 
    (persistent! v) 
    (recur (assoc! v i (myfn (get v i))) is))) 

Answer 4

(let [sidx (set idx)] 
    (vec      ;(sidx i) 
    (map-indexed (fn [i x] (if (contains? sidx i) (myfn x) x)) v)))