Różnice między wybraną wersją a wersją aktualną.
| Both sides previous revision Poprzednia wersja | Nowa wersja Both sides next revision | ||
|
pl:dydaktyka:pp:haskell:lab-monads [2020/05/25 15:35] msl [Zadania:] |
pl:dydaktyka:pp:haskell:lab-monads [2020/05/25 15:37] msl przywrócono poprzednią wersję (2020/05/25 15:30) |
||
|---|---|---|---|
| Linia 168: | Linia 168: | ||
| <code haskell> | <code haskell> | ||
| - | data Tree a = Empty | Node (Tree a) (Tree a) | + | data Tree a = Empty | Leaf a | Node (Tree a) (Tree a) |
| </code> | </code> | ||
| Linia 192: | Linia 192: | ||
| pure x = Leaf x | pure x = Leaf x | ||
| _ <*> Empty = Empty | _ <*> Empty = Empty | ||
| + | (Leaf f) <*> (Leaf x) = Leaf (f x) | ||
| (Leaf f) <*> (Node x y) = Node (fmap f x) (fmap f y) | (Leaf f) <*> (Node x y) = Node (fmap f x) (fmap f y) | ||
| </code> | </code> | ||
