G'day all. Quoting [EMAIL PROTECTED]:
This nasty acquaintance of mine asked the students to write down a simple procedure which generates the sequence after the infinite number of units of time.
Cool problem! "Simple" is, of course, in the eye of the beholder. zipWith (!!) (fix (([1]:).map(>>= \x->if x==0 then [1] else [1,0]))) [0..] Cheers, Andrew Bromage _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe