Làm cách nào để sửa đổi một phần của vectơ trong Clojure?

Question

Tôi tự hỏi nếu tôi thiếu một cái gì đó cơ bản liên quan đến thao tác vector. Hãy nói rằng tôi có như sau:

(def xs [9 10 11 12 13]) 
(def idx [0 2]) 
(def values [1 3]) 

Nếu tôi muốn trở về vector [1 10 3 12 13] trong Matlab, tôi sẽ viết xs(idx) = values. Trong Clojure, có một cách nguyên thủy để đạt được điều này? Hiện tại, tôi đang sử dụng chức năng sau:

(defn xinto [seq idx val] 
    (apply assoc seq (interleave idx val))) 

Cảm ơn.

Answer 1

Hơi khó xử vì bạn đã chia nhỏ idx và values thành hai seq, khi chúng là khái niệm bản đồ chỉ mục về giá trị. Vì vậy, nếu bạn sẽ cho phép tôi một chút thay đổi sáng tạo của định dạng dữ liệu của bạn:

(def x [9 10 11 12 13]) 
(def changes {0 1, 2 3}) 

(defn xinto [v changes] 
    (reduce (fn [acc [k v]] 
      (assoc acc k v)) 
      v 
      changes)) 

(xinto x changes) ;; gets the result you want 

Nếu bạn tạo idx và values theo một cách kỳ lạ rằng nó không thuận tiện để nhóm chúng lại với nhau, bạn có thể nhóm chúng sau này với (map list idx values) và sau đó sử dụng triển khai xinto của tôi với điều đó.

Answer 2

Không thể tìm thấy nội dung nào tốt hơn.

Trong các chức năng chuỗi lõi có replace, nhưng nó hoạt động trên các giá trị, không phải trên bàn phím. Vì vậy,

(replace {9 2} x) 

Would return

[2 10 11 12 13] 

Nếu bạn có kế hoạch để làm toán những thứ liên quan trong Clojure, tôi cũng đề nghị bạn có một cái nhìn tại Incanter. Nó có rất nhiều API để thao tác dữ liệu toán học.

Answer 3

tôi có lẽ muốn sử dụng reduce cho việc này:

(reduce 
    (fn [old [i v]] (assoc old i v)) 
    x 
    (map vector idx values)) 

Tuy nhiên, nếu bạn thực sự muốn làm điều này rất nhiều (Matlab-style) sau đó tôi muốn khuyên bạn nên tạo một số macro helper/chức năng để tạo ra một số loại DSL cho thao tác vectơ.