Haskell, nasıl mükemmel dengeli bir ikili arama ağacı oluşturmak için?

Question

Haskell, nasıl mükemmel dengeli bir ikili arama ağacı oluşturmak için?

oy

3

Bir liste xs alır ve xs elemanların tam olarak aynı setinden oluşan dengeli bir ikili arama ağacı oluşturur gerektiği fonksiyonu.

Sonuç aşağıdaki gibi olması gerekir: (liste ise [1,2,3,4,5,6,7,8])

Düğüm (düğüm (düğüm (düğüm Boş 1 Boş) 2 Boş) 4 (Düğüm Boş 4 boş)) 5 (düğüm (düğüm Boş 6 Boş) 7 (Düğüm Boş 8 boş))

o ağaç gibi görünmelidir ki:

yerine bu:

                5
               / \
              4   6
             /     \
            3       7
           /         \
          2           8
         /
        1

Herkes bunun nasıl yapılacağını söyleyebilir misiniz? Ben mükemmel dengeli değildir ikinci ağacı yapabilir bulmak, ama ilkini nasıl bilmiyorum.

Herhangi bir Yardım takdir !! Şimdiden teşekkür ederim!

haskell binary-search-tree

Oluştur 30/09/2013 saat 09:56
kaynak kullanıcı Zip

Diğer dillerde...

2 cevaplar

jacobm · Answer 1 · 2013-09-30 10:06

giriş sıralandırır. Şimdi kimin kök düğüm sol ve sağ alt ağaç sırasıyla merkezin solunda ve sağında sublists için bu işlemi uygulanarak üretilen alt ağaçlar olan orta listenin eleman ve bir ağaç oluşturmak.

Haskell'de:

buildBalanced []   = Empty
buildBalanced elts = Node (buildBalanced $ take half elts) 
                          (elts !! half) 
                          (buildBalanced $ drop (half+1) elts)
    where half = length elts `quot` 2

main = putStrLn $ show $ buildBalanced [1,2,3,4,5,6,7,8]
-- prints Node (Node (Node (Node Empty 1 Empty) 2 Empty) 3 (Node Empty 4 Empty)) 5 (Node (Node Empty 6 Empty) 7 (Node Empty 8 Empty))

user2407038 · Answer 2 · 2013-10-01 23:56

oy

0

Ağacın üst orta eleman olması gerekiyorsa:

mkBalanced [] = Empty
mkBalanced xs = Node mid (mkBalanced half0) (mkBalanced half1)
    where (half0, half') = splitAt ((length xs `div` 2) - 1) xs
          half1 = tail half'
          mid = head half'

Değilse:

mkBalanced [] = Empty
mkBalanced (x:xs) = Node x (mkBalanced half0) (mkBalanced half1)
    where (half0, half1) = splitAt (length xs `div` 2) xs

Cevap 01/10/2013 saat 23:56
kaynak kullanıcı user2407038