Personal tools

Solution2.html

From HaskellWiki

Revision as of 14:33, 21 September 2012 by Gphilip (Talk | contribs)
(diff) ←Older revision | Current revision (diff) | Newer revision→ (diff)
Jump to: navigation, search
parent :: Sheep -> Maybe Sheep
parent s = father s `mplus` mother s
 
grandparent :: Sheep -> Maybe Sheep
grandparent s = paternalGrandfather s `mplus` 
                paternalGrandmother s `mplus` 
                maternalGrandfather s `mplus` 
                maternalGrandmother s

Alternative grandparent: 

grandparent :: Sheep -> Maybe Sheep
grandparent s = parent s >>= parent
Retrieved from "http://www.haskell.org/haskellwiki/Solution2.html"