return to first page linux journal archive
keywordscontents

Listing 2. Factorial program

(define (fact x)
  (if (< x 2)
        1
	      (* x (fact (- x 1)))))
Back to article