Personal tools

Solution3.html

From HaskellWiki

(Difference between revisions)
Jump to: navigation, search
(New page: <haskell> parent :: Sheep -> [Sheep] parent s = (maybeToList (mother s)) ++ (maybeToList (father s)) grandparent :: Sheep -> [Sheep] grandparent s = (maybeToList (paternalGrandfather s)) ...)
 
(Another solution.)
 
Line 8: Line 8:
 
(maybeToList (maternalGrandfather s)) ++
 
(maybeToList (maternalGrandfather s)) ++
 
(maybeToList (maternalGrandmother s))
 
(maybeToList (maternalGrandmother s))
  +
  +
</haskell>
  +
  +
Alternate solution:
  +
  +
<haskell>
  +
parent :: Sheep -> [Sheep]
  +
parent s = (maybeToList $ mother s) `mplus` (maybeToList $ father s)
  +
  +
grandparent :: Sheep -> [Sheep]
  +
grandparent s = parent s >>= parent
  +
   
 
</haskell>
 
</haskell>

Latest revision as of 14:32, 21 September 2012

parent :: Sheep -> [Sheep]
parent s = (maybeToList (mother s)) ++ (maybeToList (father s))
 
grandparent :: Sheep -> [Sheep]
grandparent s = (maybeToList (paternalGrandfather s)) ++
                (maybeToList (paternalGrandmother s)) ++
                (maybeToList (maternalGrandfather s)) ++
                (maybeToList (maternalGrandmother s))

Alternate solution:

parent :: Sheep -> [Sheep]
parent s = (maybeToList $ mother s) `mplus` (maybeToList $ father s)
 
grandparent :: Sheep -> [Sheep]
grandparent s = parent s >>= parent