Source
clj_swing/tree.clj:31
top
(defn changed-path [map-a map-b]
(if (or (= map-a map-b)
(not (map? map-a))
(not (map? map-b))
(not= (keys map-a) (keys map-b)))
[]
(let [c (filter #(not= (get map-a %) (get map-b %)) (keys map-a))]
(if (= 1 (count c))
(let [c (first c)]
(cons c (changed-path (get map-a c) (get map-b c))))
[]))))
Comments top
No comments for changed-path. Log in to add a comment.