G'day all.

On Sat, Sep 21, 2002 at 12:56:13PM -0700, Russell O'Connor wrote:

> case (number g) of
>  Just n -> Just (show n)
>  Nothing ->
>   case (fraction g) of
>    Just n -> Just (show n)
>    Nothing ->
>     case (nimber g) of
>      Just n -> Just ("*"++(show n))
>      Nothing -> Nothing

This isn't exactly the most beautiful way of doing it, but...

        (number g   >>= return . show) `mplus`
        (fraction g >>= return . show) `mplus`
        (nimber g   >>= return . ('*':) . show)

Cheers,
Andrew Bromage
_______________________________________________
Haskell-Cafe mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to