给定一个只有关键字键的嵌套映射,例如{:foo {:bar 1 :baz [2 3] :qux {:quux 4}} :corge 5}
,我该如何实现flatten-map
才能(flatten-map {:foo {:bar 1 :baz [2 3] :qux {:quux 4}} :corge 5} "-")
产生类似{:foo-bar 1 :foo-baz [2 3] :foo-qux-quux 4 :corge 5}
.
我最好的尝试是:
(defn flatten-map
([form separator] (flatten-map form separator nil))
([form separator prefix]
(if (map? form)
(into {} (map (fn [[k v]]
[(keyword (str prefix (name k)))
(flatten-map v separator (str prefix (name k) separator))])
form))
form)))
如您所见,我不能flatten-map
只选择“叶子”。