Also https://mitpress.mit.edu/sicp/full-text/book/book-Z-H-11.html#%_sec_1.2.1.
(fibonacci 10)
(define fibonacci | |
(lambda (n) | |
(if (< n 2) | |
1 | |
(+ (fibonacci (- n 1)) | |
(fibonacci (- n 2)))))) |
(define fibonacci | |
(lambda (n) | |
(define iter | |
(lambda (i n1 n2) | |
(if (= i 0) | |
n2 | |
(iter (- i 1) | |
n2 | |
(+ n1 n2))))) | |
(iter n 0 1))) |