VPF::Haskell - Бинарные деревья - Форум программистов

R654

Дата 25.3.2012, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 19.1.2008

Репутация: нет
Всего: нет

Доброго времени суток!
Никак не могу сделать форматированный вывод дерева. Суть задачи: "вывести двоичное дерево в виде строки так, что если 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 827
Регистрация: 15.9.2005
Где: Brisbane

Репутация: нет
Всего: 40

А определение 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 19.1.2008

Репутация: нет
Всего: нет

Спасибо, сейчас попробую... Определение дерева вот такое:

Код


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

Это сообщение отредактировал(а) R654 - 31.3.2012, 15:31

Бонифаций

Дата 1.4.2012, 21:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 827
Регистрация: 15.9.2005
Где: Brisbane

Репутация: нет
Всего: 40

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

Код


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

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

--------------------

Бонифаций.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Функциональные языки: общие вопросы \| Следующая тема »