在Clojure中树的打印级别

Question

我已经环顾四周，我看不到找到一种方法来做到这一点。 我只是想逐级打印出一棵树。

所以'[a [b c]]会打印出：

a 
b c 

Answer 1

提供我理解正确的话，这个代码应工作：

(defn bf 
    [root] 
    (if (vector? root) 
    (let [roots (filterv (complement vector?) root) 
      children (filterv vector? root)] 
     (if-not (empty? children) 
     (into [roots] (mapcat bf children)) 
     [roots])) 
    root)) 

这不是懒，它返回一个包含节点，例如向量的向量

(bf ['a ['b 'c] 'd ['e 'f]]) => [[a d] [b c] [e f]] 

打印出来：

(let [xs (bf ['a ['b 'c] 'd ['e 'f]])] 
    (doseq [line (map str/join xs)] ; you need to require [clojure.string :as str] 
    (println line)))