diff options
Diffstat (limited to 'guile/taocp')
-rw-r--r-- | guile/taocp/utils/math.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guile/taocp/utils/math.scm b/guile/taocp/utils/math.scm index 2216da4..0ccbd7d 100644 --- 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)))) |