8 Nov
2007
8 Nov
'07
12:32 a.m.
G'day all. Quoting jerzy.karczmarczuk@info.unicaen.fr:
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