Đại diện cho một cây trong Clojure

Question

Điều gì sẽ là một cách thành ngữ để đại diện cho một cây trong Clojure? Ví dụ:

 A 
    /\ 
    B C 
    /\ \ 
D E F 

Hiệu suất không quan trọng và cây sẽ không phát triển quá 1000 yếu tố.

Answer 1

'(A (B (D) (E)) (C (F))) 

Answer 2

Có một cách đáng sợ để làm việc đó chỉ sử dụng cons:

(defn mktree 
    ([label l r] (cons label (cons l r))) 
    ([leaf] (cons leaf (cons nil nil)))) 
(defn getlabel [t] (first t)) 
(defn getchildren [t] (rest t)) 
(defn getleft [t] (first (getchildren t))) 
(defn getright [t] (rest (getchildren t))) 

Lưu ý rằng trẻ em không phải là một danh sách; đó là một cặp. Nếu cây của bạn không chỉ là nhị phân, bạn có thể biến nó thành một danh sách. sử dụng nil khi không có con trái hoặc phải, tất nhiên.

Nếu không, hãy xem this answer.

Cây trong hình ảnh của bạn:

(mktree 'A (mktree 'B (mktree 'D) (mktree 'E)) (mktree 'C nil (mktree 'F))) 

Answer 3

Trees underly chỉ là về tất cả mọi thứ trong Clojure vì họ cho vay mình rất độc đáo để chia sẻ cấu trúc trong cấu trúc dữ liệu liên tục. Bản đồ và Vectors thực sự là những cây có yếu tố phân nhánh cao để cung cấp cho chúng tra cứu và chèn thời gian. Vì vậy, câu trả lời ngắn nhất tôi có thể cho (mặc dù nó không thực sự hữu ích) là tôi thực sự khuyên bạn nên Purely functional data structures by Chris Okasaki cho một câu trả lời thực sự cho câu hỏi này. Ngoài ra đoạn video Giàu Hickey về cấu trúc dữ liệu Clojure trên blip.tv

(set 'A 'B 'C)