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

n!を定義してみよう

(define (fact n)

(if (equal? n 0) 1

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

equal?は=でもよい

(define (fact n)

(if (= n 0) 1

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

関数名はfact

n!=

1    (n=0)

n×(n-1)! (n≠0)