Función para calcular el enésimo término de la sucesión de Fibonacci en Scheme

gistfile1.scm

;; Versión iterativa compacta con DO
(define (fib n)
  (do ((a 0 b)(b 1 (+ a b))(i n (- i 1)))
      ((= i 0) a ))) 

;; Versión iterativa explícita con named LET
(define (fib n)
  (let loop ((a 0)
             (b 1)
             (i n))
    (if (= i 0)
        a
        (loop b (+ a b) (- i 1)) )))

;; Referencias:
;; http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-11.html#%_sec_1.2.2
;; http://rosettacode.org/wiki/Fibonacci_sequence#Scheme