Упражнение 1.19 Числа Фибоначчи через преобразование
Vasiliy

Код Ревью

Сравни свои решения
    #| BEGIN (Введите свое решение) |#
(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond
    [(= count 0) b]
    [(even? count)
     (fib-iter a
               b
               (+ (* p p) (* q q)) ; p' = p^2 + q^2
               (+ (* 2 p q) (* q q)) ; q' = 2 p q + q^2
               (/ count 2))]
    [else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))]))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond
    [(= count 0) b]
    [(even? count)
     (fib-iter a
               b
               (+ (* p p) (* q q)) ; p' = p^2 + q^2
               (+ (* 2 p q) (* q q)) ; q' = 2 p q + q^2
               (/ count 2))]
    [else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))]))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond
    [(= count 0) b]
    [(even? count)
     (fib-iter a
               b
               (+ (* p p) (* q q)) ; p' = p^2 + q^2
               (+ (* 2 p q) (* q q)) ; q' = 2 p q + q^2
               (/ count 2))]
    [else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))]))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond
    [(= count 0) b]
    [(even? count)
     (fib-iter a
               b
               (+ (* p p) (* q q)) ; p' = p^2 + q^2
               (+ (* 2 p q) (* q q)) ; q' = 2 p q + q^2
               (/ count 2))]
    [else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))]))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond
    [(= count 0) b]
    [(even? count)
     (fib-iter a
               b
               (+ (* p p) (* q q)) ; p' = p^2 + q^2
               (+ (* 2 p q) (* q q)) ; q' = 2 p q + q^2
               (/ count 2))]
    [else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))]))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond
    [(= count 0) b]
    [(even? count)
     (fib-iter a
               b
               (+ (* p p) (* q q)) ; p' = p^2 + q^2
               (+ (* 2 p q) (* q q)) ; q' = 2 p q + q^2
               (/ count 2))]
    [else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))]))

#| END |#