最初のページ 戻る 次へ 最後のページ 画像

(cond ...)でも書ける

(define (fact n )

(cond ((equal? n 0) 1)

(else (* n (fact (- n 1))))))

(fact 10)

(define (fact n )

(cond ((zero? n) 1)

(else (* n (fact (- n 1))))))

(fact 10)