From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 24 Nov 2006 01:12:49 +0000 (+0000)
Subject: Add an example of the use of unfoldr, following doc feedback from dozer
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=84778fcd7a246687d91d0e7b3c0dfcd26104f8d6;p=ghc-base.git

Add an example of the use of unfoldr, following doc feedback from dozer
---

diff --git a/Data/List.hs b/Data/List.hs
index 2ce489d..b6a847b 100644
--- a/Data/List.hs
+++ b/Data/List.hs
@@ -855,7 +855,12 @@ rqpart cmp x (y:ys) rle rgt r =
 --
 -- > f' (f x y) = Just (x,y)
 -- > f' z       = Nothing
-
+--
+-- A simple use of unfoldr:
+--
+-- > unfoldr (\b -> if b == 0 then Nothing else Just (b, b-1)) 10
+-- >  [10,9,8,7,6,5,4,3,2,1]
+--
 unfoldr      :: (b -> Maybe (a, b)) -> b -> [a]
 unfoldr f b  =
   case f b of