Welcome to the CHICKEN Scheme pasting service
factorial pasted by anonymous on Thu Apr 11 04:46:25 2013
(define (factorial x)
(if (= x 1) 1
(* x (factorial (- x 1)))
)
)
don't forget 0! added by zbigniew the anonymous on Thu Apr 11 05:02:35 2013
(define (factorial x)
(if (= x 0)
1
(* x (factorial (- x 1)))))