From 9f589a7b702afff32e9277732c6efdf87dab123f Mon Sep 17 00:00:00 2001
From: Juan Manuel Gimeno Illa <jmgimeno@gmail.com>
Date: Sun, 22 Apr 2018 16:31:49 +0200
Subject: [PATCH] WIP: Added David's Tree example

---
 typeclasses/typeclasses.lhs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/typeclasses/typeclasses.lhs b/typeclasses/typeclasses.lhs
index db629a4..278b5bc 100644
--- a/typeclasses/typeclasses.lhs
+++ b/typeclasses/typeclasses.lhs
@@ -21,6 +21,8 @@ Index
 >                       , Monoid(..)
 >                       , Applicative(..)
 >                       , Foldable(..)
+>                       , Traversable(..)
+>                       , (<$>)
 >                       )
 
 </div>
@@ -509,9 +511,34 @@ Foldable
 Traversable
 ===========
 
+> class (Functor t, Foldable t) => Traversable t where
+>   traverse :: (Applicative f) => (a -> f b) -> t a -> f (t b)
+>   sequenceA :: (Applicative f) => t (f a) -> f (t a)
+>   sequenceA = traverse id
+
 Example
 =======
 
+> data Tree a = Leaf | Node (Tree a) a (Tree a) deriving Show
+
+* `fmap` recreates the structure changing the values
+
+> instance Functor Tree where -- g :: a -> b
+>   fmap _ Leaf           = Leaf
+>   fmap g (Node lt a rt) = Node (fmap g lt) (g a) (fmap g rt)
+
+* `foldMap` squashes the structure with the rules given by `Monoid m`
+
+> instance Foldable Tree where -- g :: Monoid m => a -> m
+>   foldMap g Leaf           = mempty
+>   foldMap g (Node lt a rt) = foldMap g lt <> g a <> foldMap g rt
+
+* `traverse` recreates the structure inside the context given by `Applicative f` (can do both)
+
+> instance Traversable Tree where -- g :: Applicative f => (a -> f b) 
+>   traverse g Leaf           = pure Leaf
+>   traverse g (Node lt a rt) = Node <$> traverse g lt <*> g a <*> traverse g rt
+
 Bibliography
 ============