Haskell - Бинарные деревья

 
0
 
Functional languages
ava
R654 | 25.03.2012, 15:44
Доброго времени суток!
Никак не могу сделать форматированный вывод дерева. Суть задачи: "вывести двоичное дерево в виде строки так, что если A – отец, а B, C – сыновья, то строка имеет вид ((B)(A)©)".
Вот что пока получается:

drawTree :: Ord a => Tree a -> IO () 
drawTree (Int a l r) = do { putStr(show a ++ " ")
                              ;drawTree l
                ;drawTree r}

Заранее благодарю за любую помощь!
Comments (3)
ava
Бонифаций | 27.03.2012, 08:43 #
А определение Tree какое?

В общем лучше сделать что то вроде


instance Show Tree where
  show (Int a l r) = "((" ++ show l ++ ")(" ++ show a ++ ")(" ++ show r ++ "))"
  show (тут другие варинты Tree) = ...


И где надо вывести дерево, просто print mytree


ava
R654 | 31.03.2012, 15:28 #
Спасибо, сейчас попробую... Определение дерева вот такое:

data Tree a = Null | Int a (Tree a) (Tree a) deriving (Read, Show)

Вот как хочу примерно сделать:

insert :: Ord a => a -> Tree a -> Tree a
insert x Null = Int x Null Null
insert x (Int y t t') | x <= y = Int y (insert x t) t'
insert x (Int y t t') | x > y = Int y t (insert x t')

empty = Null

insert_tree :: Ord a => [a] -> Tree a
insert_tree = foldl (flip insert) empty

main = (readLn::IO [Int]) >>= print . drawTree . insert_tree
ava
Бонифаций | 01.04.2012, 21:20 #
вот и надо убрать Show из deriving и добавить


instance Show Tree where
  show (Int a l r) = "((" ++ show l ++ ")(" ++ show a ++ ")(" ++ show r ++ "))"
  show (Null) = ""


А drawTree выкинуть вообще
Please register or login to write.
Firm of day
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Contributors
advanced
Submit