07/07/10 15:03:24
>>147
それ両方再帰じゃない？
再帰：
(define (fib n)
(if (<= n 2)
1
(+ (fib (- n 1)) (fib (- n 2)))))
反復：
(define (fib n)
(define (iter rersult a count)
(if (=> count n)
result
(iter (+ result a) result (+ count 1))))
(iter 1 1 1))
07/07/10 15:03:24
>>147
それ両方再帰じゃない？
再帰：
(define (fib n)
(if (<= n 2)
1
(+ (fib (- n 1)) (fib (- n 2)))))
反復：
(define (fib n)
(define (iter rersult a count)
(if (=> count n)
result
(iter (+ result a) result (+ count 1))))
(iter 1 1 1))