diff options
Diffstat (limited to 'doc/fib.nxs')
| -rw-r--r-- | doc/fib.nxs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/doc/fib.nxs b/doc/fib.nxs index 130f99d..e09e7a4 100644 --- a/doc/fib.nxs +++ b/doc/fib.nxs @@ -1,4 +1,8 @@ ;; Author: Andrei S (bind fib (lambda (x) ;; xth fib number -(if (< x 2) x (+ (fib (- x 1)) (fib (- x 2)))))) + (if (< x 2) x (+ (fib (- x 1)) (fib (- x 2)))))) + (fib 7) + +(bind fibseq (lambda (n) +(if (= 0 n) 0 (begin (+ n 1) (fib n))))) |