詳しい末尾再帰
(define (fac-tail n multiplier)
  (if (= n 0)
      multiplier
      (fac-tail (- n 1) (* multiplier n))))

一覧 前へ 次へ