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)))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What type of object does `map' expect as second argument?
Visually impaired? Let me spell it for you (wav file) download WAV