Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Функциональные языки: общие вопросы > Haskell - Бинарные деревья

Автор: R654 25.3.2012, 14: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}

Заранее благодарю за любую помощь!

Автор: Бонифаций 27.3.2012, 08:43

А определение Tree какое?

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

Код


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

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

Автор: R654 31.3.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

Автор: Бонифаций 1.4.2012, 21:20

вот и надо убрать Show из deriving и добавить

Код


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

А drawTree выкинуть вообще