的Clojure：Clojure中實施assoc命令，在功能

Question

Chapter 5, Exercise 3勇敢和真實需要：

落實assoc命令的函數。提示：使用assoc函數並將其參數定義爲[m [k & ks] v]。

雖然我找到了這個solution（見39-54行），我想知道是否有不同的方式來做到這一點。在練習上一個練習時，我發現jbm在implementing the comp function上的這個非常明確的答案非常有幫助。

我一直在試圖減少過度鍵的連體清單的部分assoc命令和應用功能返回到最終值：

(defn my-part-assoc [m k] 
    (partial assoc m k)) 

((reduce my-part-assoc {} [:one :two :three]) "val") 

不用說，這是行不通的。我對Clojure和函數式編程不熟悉，擔心我對reduce的非常基本的理解導致我走錯了路。請有人提供一個更簡潔的答案？

Answer 1

發佈後不久，我發現this，它得到來自Clojure GitHub repo以下定義：

(defn assoc-in 
    ;; metadata elided 
    [m [k & ks] v] 
    (if ks 
    (assoc m k (assoc-in (get m k) ks v)) 
    (assoc m k v)))