再帰関数
> (define (fac n)
    (if (= n 0)
        1
        (* n (fac (- n 1)))))
> (fac 4)
24
> (fac 10)
3628800

一覧 前へ 次へ