Welcome to the CHICKEN Scheme pasting service
iterative factorial added by int0X80 on Sat Jan 26 18:36:24 2013
(define (factorial n) (fact-iter 1 1 n)) (define (fact-iter product counter max-count) (if (> counter max-count) product (fact-iter (* counter product) (+ counter 1) max-count)))