Name: Anonymous 2010-10-08 7:21
THE FUNDAMENTAL DIFFERENCE BETWEEN SCHEME AND C
;; works always
;;
(define (fac n)
(define (iter n c)
(if (< c 1)
n
(iter (* n c) (- c 1))))
(iter 1 n))
/* works once
*/
int fac(int n) {
static int r = 1;
if (n < 1) {
return r;
} else {
r = r * n;
fac(n-1);
}
}