recursion - Clojure - 递归展平嵌套 map

Question

给定一个带有键 :content 的 map ，其中内容是字符串列表或其他 map ，如何将值展平以仅接收字符串？

(flattener {:content '("b" {:content ("c" {:content ("d")})} "e")})

> '("b" "c" "d" "e")

我在非常hacky的循环重复尝试中跌跌撞撞，现在我的大脑已经筋疲力尽了。在 Clojure 中是否有一种很好的惯用方法来做到这一点？

谢谢。

我得到的是下面，虽然它有效，但它很丑陋

(defn flatten-content
  [coll]
  (loop [acc '(), l coll]
    (let [fst (first l), rst (rest l)]
      (cond
       (empty? l) (reverse acc)
       (seq? fst) (recur acc (concat fst rst))
       (associative? fst) (recur acc (concat (:content fst) rst))
       :else (recur (conj acc fst) rst)))))

Answer 1

tree-seq功能有助于步行，而且由于您的 map

(def m {:content '("b" {:content ("c" {:content ("d")})} "e")})

总是有一个由 :content 键控的“ child ”列表，这有效

(filter string? (tree-seq associative? :content m))
;=> ("b" "c" "d" "e")