vorige nächste

endrekursiv Ablauf


 

Bindung von n Bindung von akku Aufruf nächste Stufe
1 120 (loop 0 120)
;;; endrekursiv mit lokaler Schleife:
(define
  (fac n)
  (let loop
    ((n n)
     (akku 1))
    (if
     (zero? n)
     akku
     (loop (sub1 n) (* n akku)))))

;;; Test:
(fac 5)