diff options
| -rw-r--r-- | guile/taocp/one/two/eight/fib.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guile/taocp/one/two/eight/fib.scm b/guile/taocp/one/two/eight/fib.scm index b26d392..3ada9c5 100644 --- a/guile/taocp/one/two/eight/fib.scm +++ b/guile/taocp/one/two/eight/fib.scm @@ -13,12 +13,12 @@ (/ (- 1 (sqrt 5.0)) 2.0)) (define (fib-fast n) - "compute fibonacci of `n`." + "Compute Fibonacci of N." (/ (- (expt phi n) (expt phi-dash n)) (sqrt 5.0))) (define (fib-1-1000) - "return fibonacci numbers between 1 and 1000." + "Return Fibonacci numbers between 1 and 1000." (reverse (fold (lambda (n prev) (cons (fib-fast n) prev)) '() |