Clojure - рекурсивно сгладить вложенные карты

Question

Учитывая карту с ключом: содержимое, где содержимое представляет собой список строк или других карт, как я могу сгладить значения, чтобы получать только строки?

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

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

Я натыкаюсь на попытки взлома хакерской петли, и теперь мой мозг сгорел. Есть ли хороший идиоматический способ сделать это в 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 функция помогает ходить, а с вашей карты

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

всегда есть список " дети ", введенные в действие :content, это работает

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

Answer 2

Th е рекуррентная функция работает (и составляет около 25% быстрее, чем filter эд tree-seq подхода):

(defn flatten-content [node] 
    (lazy-seq 
    (if (string? node) 
     (list node) 
     (mapcat flatten-content (:content node)))))