Haskell. BinaryTree. Помогите найти ошибку в синтаксисе.

[Pulseofmalstrem]

Xaositect
Я надеюсь, что время придет и для этого. Кстати, не могли бы посоветовать хороший материал по конкретно монадам, возможно, статья или еще что.

P.S. Я поменял isLeaf вот так:

Используется синтаксис Haskell

isLeaf :: BTree Int -> Bool
isLeaf tree = if ((isNil (getLeftBranch tree)) && (isNil(getRightBranch tree))) then True
                                                                                else False

Но ошибка все таже, правда вконце он напечатал "", то есть сработала первая охрана в Treeoutput. Что совсем сбивает с толку, так как почему-то он игнорирует часть дерева, так если бы ее не было.

[Xaositect]

Pulseofmalstrem в сообщении #1028656 писал(а):

Я надеюсь, что время придет и для этого. Кстати, не могли бы посоветовать хороший материал по конкретно монадам, возможно, статья или еще что.

Мне нравится http://blog.sigfpe.com/2006/08/you-coul ... s-and.html . Ну и для начала хорошо бы понимать типы, конструкторы типов и классы типов.

-- Чт июн 18, 2015 20:43:46 --

Pulseofmalstrem в сообщении #1028656 писал(а):

Но ошибка все таже, правда вконце он напечатал "", то есть сработала первая охрана в Treeoutput. Что совсем сбивает с толку, так как почему-то он игнорирует часть дерева, так если бы ее не было.

Посмотрите внимательно, что у Вас делает pop:

*Main> let tree = (fromListtoTree [1, 2, 3, 4, 5, 6, 7] (empty))
*Main> tree
Node 1 (Node 2 (Node 4 (Node 7 Nil Nil) Nil) (Node 6 Nil Nil)) (Node 3 (Node 5 Nil Nil) Nil)
*Main> pop tree
Node 2 (Node 4 (Node 7 Nil Nil) Nil) Nil

[_Ivana]

arseniiv в сообщении #1028521 писал(а):

Тут лучше использовать parser combinators, но вряд ли они будут понятны сразу же, а встроенной функции специально для этого нет.

Парсер комбинаторы я даже в своем интерпретаторе Лискрипта не использую, а вы их советуете для такой задачки Есть сайты с олимпиадными задачками с выбором языка решения, в том числе и Haskell, там входные-выходные данные берутся получаются из стандартных потоков ввода-вывода, и формат входных данных чаще всего именно такой. И конечно никто не использует парсек или аттопарсек, а пишут просто и сердито:

Используется синтаксис Haskell

main = do
    l <- getLine
    print $ map (\x -> read x::Int) $ words l
 

[Pulseofmalstrem]

Всех благодарю за помощь, на данный момент я успешно достиг желанного результата. Если интересно могу выложить мой код сюда.

[arseniiv]

(Оффтоп)

_Ivana в сообщении #1028749 писал(а):

Парсер комбинаторы я даже в своем интерпретаторе Лискрипта не использую, а вы их советуете для такой задачки

Заинтересовали, теперь придётся смотреть, какой у вас подход. (Попозже.) Там-то одной lines из-за использования строк будет недостаточно…

P. S. Виджу. Ну нет уж, лучше комбинаторами.