Tail recursion: Difference between revisions

Revision as of 17:29, 8 January 2010

Revision as of 07:37, 12 February 2010

Line 33:

;; to calculate the product of all non-negative integers

;; less than or equal to n.

(define (factorial n)

(lambdalet fact ([i n] [acc 1])

(letif fact(zero? ([i n] [acc 1])

(if (zero? i)acc

(fact (- i 1) (* acc i)))))

(fact (- i 1) (* acc i))))))

</source>