;;; SIGNATUR
;;; fibonacci-it: number -> number
;;; ERKLÄRUNG
;;; (fibonacci-it n) berechnet die n-te Fibonacci-Zahl
;;; BEISPIEL
;;; (fibonacci-it 3)
;;; => 3
;;; DEFINITION
(define fibonacci-it
  (lambda (n)
    (fibonacci-it-1 n 1 1)))

;;; SIGNATUR
;;; fibonacci-it-1: number number number -> number
;;; ERKLÄRUNG
;;; (fibonacci-it n p q) berechnet die n-te Zahl der Zahlenfolge mit dem
;;; Bildungsgesetz F_i = F_{i-1} + F_{i-2} und den Startwerten
;;; F_0 = p und F_1 = q
;;; BEISPIEL
;;; (fibonacci-it-1 2 10 20)
;;; => 30
;;; DEFINITION
(define fibonacci-it-1
  (lambda (n p q)
    (cond
      ((= n 0)
       p)
      ((= n 1)
       q)
      (else
       (fibonacci-it-1 (- n 1) q (+ p q))))))