1 665c255d 2023-08-04 jrmu (define (factorial n)
 2 665c255d 2023-08-04 jrmu   (if (= n 1)
 3 665c255d 2023-08-04 jrmu       1
 4 665c255d 2023-08-04 jrmu       (* n (factorial (- n 1)))))
 5 665c255d 2023-08-04 jrmu 
 6 665c255d 2023-08-04 jrmu (define (factorial n)
 7 665c255d 2023-08-04 jrmu   (fact-iter 1 1 n))
 8 665c255d 2023-08-04 jrmu (define (fact-iter product counter max-count)
 9 665c255d 2023-08-04 jrmu   (if (> counter max-count)
10 665c255d 2023-08-04 jrmu       product
11 665c255d 2023-08-04 jrmu       (fact-iter (* product counter) (+ counter 1) max-count)))