Hy中的字典合并

(def dict1 {:a 1 :b 2})
(def dict2 {:b 3 :c 4})

;; 简单合并
(def merged-dict (merge dict1 dict2))
(println merged-dict) ; 输出: {:a 1 :b 3 :c 4}

;; 有条件合并
(def custom-merge (fn [d1 d2]
                    (merge-with (fn [v1 v2]
                                  (if (= v1 v2)
                                    v1
                                    (list v1 v2))))
                                d1 d2)))
(def custom-merged (custom-merge dict1 dict2))
(println custom-merged) ; 输出: {:a 1 :b (2 3) :c 4}

(def dict1 {:a 1 :b 2})
(def dict2 {:b 3 :c 4})

(def custom-merge (fn [d1 d2]
                    (merge-with + d1 d2))) ; 使用加法作为合并策略
(def custom-merged (custom-merge dict1 dict2))
(println custom-merged) ; 输出: {:a 1 :b 5 :c 4}

(defn deep-merge [& dicts]
  (apply merge-with (fn [& vs]
                      (if (every? map? vs)
                        (apply deep-merge vs)
                        (first vs))))
          dicts))

(def nested-dict1 {:a {:x 1 :y 2}})
(def nested-dict2 {:a {:y 3 :z 4}})

(def deeply-merged (deep-merge nested-dict1 nested-dict2))
(println deeply-merged) ; 输出: {:a {:x 1 :y 3 :z 4}}