riverphoenix

导航

 
(define (factorial n) (fact-iter 1 1 n)) (define (fact-iter product counter max-count) (if (> counter max-count) product (fact-iter (* counter product) (+ counter 1) max-count ))) (factorial 3)
posted on 2012-01-29 22:45  riverphoenix  阅读(296)  评论(0编辑  收藏  举报