반응형
연습문제1.10
> (define (A x y)
(cond ((= y 0) 0)
((= x 0) (* 2 y))
((= y 1) 2)
(else (A (- x 1)
(A x (- y 1))))))
> (A 1 10)
1024
> (A 2 4)
65536
> (A 3 3)
65536
>
(f n) = 2n
(g n) = 2^n
(h n) = 2^2...^2 (n개의 2)
연습문제 1.11
되도는 프로세스
(define (f n)
(cond ((< n 3) n)
(else (+ (- n 1) ( * 2 (f (- n 2))) ( * 3 ( f (- n 3))))))))
오타 SICP 48쪽 (define ((fib n) -> (define (fib n)
반복 프로세스
> (define (g n)
(g-iter 2 1 0 n))
> (define (g-iter a b c count)
(if (= count 2)
c
(g-iter ( + a (* 2 b) (* 3 c)) (* 2 a) (* 3 b) ( - count 1))))
> (define (A x y)
(cond ((= y 0) 0)
((= x 0) (* 2 y))
((= y 1) 2)
(else (A (- x 1)
(A x (- y 1))))))
> (A 1 10)
1024
> (A 2 4)
65536
> (A 3 3)
65536
>
(f n) = 2n
(g n) = 2^n
(h n) = 2^2...^2 (n개의 2)
연습문제 1.11
되도는 프로세스
(define (f n)
(cond ((< n 3) n)
(else (+ (- n 1) ( * 2 (f (- n 2))) ( * 3 ( f (- n 3))))))))
오타 SICP 48쪽 (define ((fib n) -> (define (fib n)
반복 프로세스
> (define (g n)
(g-iter 2 1 0 n))
> (define (g-iter a b c count)
(if (= count 2)
c
(g-iter ( + a (* 2 b) (* 3 c)) (* 2 a) (* 3 b) ( - count 1))))
반응형