如何在Clojure中解析异构树并转换指定嵌套向量结构？

嘿，我来帮你搞定这个树结构转换的需求！从你的输入输出来看，核心目标就是把树中的Map节点展开，直接将Map的所有值（无论是子树还是叶子集合）作为父节点的子元素，同时保留Symbol、字符串和嵌套向量的原有结构对吧？

核心思路 #

我们可以写一个递归函数来遍历整个树，针对不同类型的节点做不同处理：

• 对于向量节点：递归处理每个子元素，然后把处理后的结果拼接起来，保留向量的外层结构。
• 对于Map节点：忽略键（因为你的需求里键不影响最终结构），只取出所有值，递归处理每个值后拼接成序列。
• 对于叶子节点（Symbol/字符串）：直接返回自身的序列，方便后续拼接。

实现代码 #

(defn flatten-tree [node]
  (cond
    ; 处理嵌套向量：递归处理每个元素，拼接后保留向量结构
    (vector? node)
    (vec (mapcat flatten-tree node))

    ; 处理Map节点：取出所有值，递归展开后拼接
    (map? node)
    (mapcat flatten-tree (vals node))

    ; 叶子节点直接返回
    :else
    (list node)))

测试验证 #

用你给出的树结构测试一下：

(def tree '[SYMB1 "a" [SYMB2 {:k1 [SYMB1 "b" "c"]} "x"] {:k2 ["b" "c"]}])
(flatten-tree tree)

运行后会得到你想要的结果：

[SYMB1 "a" [SYMB2 [SYMB1 "b" "c"] "x"] "b" "c"]

额外说明 #

这个函数还能处理更复杂的情况，比如Map包含多个键、嵌套多层Map等。例如，如果你的树里有{:k1 "foo" :k2 {:k3 [SYMB3 "bar"]}}，处理后会直接展开成"foo" [SYMB3 "bar"]，完全符合你的需求逻辑。

内容的提问来源于stack exchange，提问作者melk thor