(define (fact n)
(if (equal? n 0) 1
(* n (fact ( - n 1))) ))
equal?は=でもよい
(if (= n 0) 1
関数名はfact
n!=
1 (n=0)
n×(n-1)! (n≠0)