关于n!求解: 1.线性递归  (define (factorial n)
(if (= n 1)
1
(* n (factorial (- n 1)))))
如图所示的线性的膨胀再线性的缩减,就为线性递归.
2.迭代
(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 10000),递归堆栈溢出,而迭代则可以运行.
|