On 2009 Mar 29, at 16:27, Brandon S. Allbery KF8NH wrote:
> cf2 a = let ai = floor a
>             rai = toRational ai
>          in
>             if a == rai
>             then [ai]
>             else rai : cf2 (1 / (a - ai))

Nope, went a bit too fast there, ignore me

-- 
brandon s. allbery [solaris,freebsd,perl,pugs,haskell] allbery@kf8nh.com
system administrator [openafs,heimdal,too many hats] allbery@ece.cmu.edu
electrical and computer engineering, carnegie mellon university    KF8NH