Нахождения значения n го члена ряда Фибоначчи без применения рекурсии

(defun fib (n)
  (cond ((= n 1) 0)
           ((= n 2) 1)
           ((+ (fib (- n 1)) (fib (- n 2))))))
 
(setq output (open "C:\\papka\\outdata.txt" :direction :output))
(format output "~D" (fib 5))
(terpri output)
(close output)

(defun fib (n)
   (let ((c 1) (p 0) (tmp 0))
     (dotimes (i (- n 1) c)
        (setq tmp (+ c p))
        (setq p c)
        (setq c tmp))))

(defun fib (n &aux (c 1) (p 0) (tmp 0))
  (dotimes (i (1- n) c)
    (setf tmp (+ c p) p c c tmp)))
 
> (fib 10)
55

(defun fib (n)
  (loop repeat n
        for a = 0 then b
        and b = 1 then (+ a b)
        finally (return b)))
 
> (fib 10)
55

#lang racket
 
(require math/matrix)
 
(define t1 0)
(define t2 0)
 
(define (fibo1 n)
  (if (< n 2) n (+ (fibo1 (- n 1)) (fibo1 (- n 2)))))
 
(define (fibo2 n)
  (matrix-ref (matrix-expt (matrix ([1 1] [1 0])) n) 1 0))
 
(define (test1 n)
  (set! t1 (current-milliseconds))
        (displayln(fibo1 n))
  (set! t2 (current-milliseconds))
  (display "recurse time ")
  (displayln(- t2 t1)))
 
(define (test2 n)
  (set! t1 (current-milliseconds))
        (displayln(fibo2 n))
  (set! t2 (current-milliseconds))
  (display "matrix time ")
  (displayln(- t2 t1)))
 
(test1 35)
"*** test2 ***"
(test2 35)

(define fibo3
  (λ (n)
    (cond
      [(zero? n) 0]
      [else
       (define-values (a b tmp) (values 0 1 0))
       (for ([i (- n 1)])
         (set! tmp a)
         (set! a b)
         (set! b (+ tmp b)))
       b])))

(define (fib n)
  (for/fold ((a 0)
             (b 1))
            ((i (in-range 0 n)))
    (values b (+ a b))))

(define (fib n)
  (for/fold ((a 0)
             (b 1)
             #:result a)
            ((i (in-range 0 n)))
    (values b (+ a b))))

(test-all 100000)
; fold time: 314ms
; matrix time: 3ms
 
(test-all 1000000)
; fold time: 18705ms
; matrix time: 87ms

(defun fib (n)
   (let ((c 1) (p 0) (tmp 0))
     (dotimes (i (- n 1) c)
        (setq tmp (+ c p))
        (setq p c)
        (setq c tmp))))