I wrote:
> > super :: (Floating a, RealFrac a) => [a] -> [a]
> > super xs = map second (myRepeat improve xs)
^^^^^^^^
The definition must be:
> super xs = map second (iterate improve xs)
Cheers,
Dimitre Novatchev.
__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/