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

[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

[lomeo.livejournal.com]

Например

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