zoll

module Trees where
data Tree a = Empty | Node a (Tree a) (Tree a)

size Empty = 0
size (Node _ l r) = 1 + size l + size r

height Empty = 0
height (Node _ l r) = 1 + max (height l) (height r)


... tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka, tečka ...

cvičenia do FP - complexity equals perplexity