हास्केल में, कैसे एक अच्छी तरह से संतुलित द्विआधारी खोज वृक्ष उत्पन्न करने के लिए?

इनपुट सूची को क्रमित करें। अब एक पेड़ जिसका रूट नोड सूची के बीच तत्व, और जिसका बाएँ और दाएँ subtrees, छोड़ दिया और केंद्र के अधिकार के लिए उप-सूचियों को इस प्रक्रिया को लागू करने के क्रमशः द्वारा उत्पन्न subtrees हैं पैदा करते हैं।

हास्केल में:

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))

पेड़ के शीर्ष मध्य तत्व होना चाहिए हैं:

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'

अगर नहीं:

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