Personal tools

Solution4.html

From HaskellWiki

Revision as of 02:01, 23 August 2012 by Pronate (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
parent :: MonadPlus m => Sheep -> m Sheep
parent s = (toMonad (father s)) `mplus` (toMonad (mother s))
 
grandparent :: MonadPlus m => Sheep -> m Sheep
grandparent s = (toMonad (parentalGrandfather s)) `mplus`
                (toMonad (parentalGrandmother s)) `mplus`
                (toMonad (maternalGrandfather s)) `mplus`
                (toMonad (maternalGrandmother s))
 
toMonad :: MonadPlus m => Maybe a -> m a
toMonad Nothing = mzero
toMonad (Just s) = return s
If the compiler cannot guess which MonadPlus to use you will need to specify it when the function is called. So,
parent someSheep :: Maybe Sheep
will use the Maybe monad and either
parent someSheep :: [] Sheep
or
parent someSheep :: [Sheep]
will use the list monad.