Поиск в ширину

[lomeo]

Клёвая реализация сабжа от antilamer:

data Tree a = Nil | Branch (Tree a) a (Tree a)

bfs t = [x | Branch _ x _ <- b]
where
b = t:[x | Branch l _ r <- b, x <- [l,r]]

Ленивость, все дела.

отсюда.

Comments

[lionet]

Ошибка, там t а не b в конце.

[lomeo]

Не понял твоего замечания. Если самую последнюю b заменить на t, то где рекурсия, т.е. собственно обход дерева?

Но там ошибка есть, да. Этот bfs не завершается :-( А если поправить, то уже не будет так красиво.

[gliv]

О, замечательно! :)
Клевая реализация ... Там ошибка есть ... Если поправить, то уже не будет так красиво
Напомнило "могу печатать 1200 символов в минуту, но такая фигня получается" ;)

[lomeo]

Я ошибку поздно заметил :-)