diff options
Diffstat (limited to 'guile/taocp/utils/math.scm')
-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 7d49c10..2216da4 100644 --- a/guile/taocp/utils/math.scm +++ b/guile/taocp/utils/math.scm @@ -19,7 +19,11 @@ For instance `(lambda (x) (* x x))` is a valid FX. (else (cons (fx n) (compute-exp1-n fx (1- n)))))) (define (fib n) - "Returns Fibonacci of N." + "Returns Fibonacci of N. + +This function is useless for large values of N. Use `fib-fast` +function defined in (taocp one two eight fib). +" (cond ((= n 0) 0) ((= n 1) 1) (else (+ (fib (- n 1)) (fib (- n 2)))))) |