taocp

taocp sandbox.
git clone git://git.ricketyspace.net/taocp.git
Log | Files | Refs

commit a34bcc2d2ec60b71dbb757dc93bbb990458bb871
parent 22ad061b8ec058868315c8b7bb2f473a673253fe
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu,  2 Feb 2017 03:48:37 +0000

guile/taocp: Update docstring of `fib-range`

* guile/taocp/utils/math.scm (fib-range): Update docstring.

Diffstat:
guile/taocp/utils/math.scm | 6+++++-
1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guile/taocp/utils/math.scm b/guile/taocp/utils/math.scm @@ -29,7 +29,11 @@ function defined in (taocp one two eight fib). (else (+ (fib (- n 1)) (fib (- n 2)))))) (define (fib-range start end) - "Returns Fibonacci sequence between START and END." + "Returns Fibonacci sequence between START and END. + +This function is useless wher START/END is large. Use `fib-fast-range` +function defined in (taocp one two eight fib). +" (let ((f (lambda (x) (cons x (fib x)))) (count (1+ (- end start )))) (map f (iota count start))))