연습문제 1.12
row는 행 번호(몇 번째 줄), column은 열 번호(각 줄에서 왼쪽으로부터 몇 번째 숫자)

(define (pascal row column)
    (cond ( (= column 1) 1)
          ( (= column row) 1)
          (else (+ (pascal (- row 1) column) (pascal (- row 1) (- column 1))))))
(pascal 5 3)
6
신고
Posted by 세레

 

연습문제1.8
 (define (cuberoot-iter guess x)
    (if (good-enough? guess x)
        guess
        (cuberoot-iter (improve guess x)
                       x)))
 (define (improve guess x)
    (/ (+ (* 2 guess guess guess) x) (* 3 guess guess) ))
 (define (good-enough? guess x)
    (< (abs (- (* guess guess guess) x)) 0.001))
 (define (cuberoot x)
    (cuberoot-iter 1.0 x))

연습문제1.9

(+ 4 5)
(inc (+ (dec 4) 5))
(inc (+ 3 5))
(inc (inc (+ (dec 3) 5)))
(inc (inc (+ 2 5)))
(inc (inc (inc (+ (dec 2) 5))))
(inc (inc (inc (+ 1 5))))
(inc (inc (inc (inc (+ (dec 1) 5)))))
(inc (inc (inc (inc (+ 0 5)))))
(inc (inc (inc (inc (5)))))
(inc (inc (inc (6))))
(inc (inc (7)))
(inc (8))
(9)
아래
(+ 4 5)
(+ (dec 4) (inc 5))
(+ 3 6)
(+ (dec 3) (inc 6))
(+ 2 7)
(+ (dec 2) (inc 7))
(+ 1 8)
(+ (dec 1) (inc 8))
(+ 0 9)
(9)
위 프로시저의 프로세스는 되돌고, 아래 프로시저의 프로세스는 반복한다.
신고
Posted by 세레

카테고리

분류 전체보기 (446)
Science (283)
ars boni et aequi (54)
Routine (83)
Language (23)
Q&A (1)
me2day (1)

달력

«   2017/10   »
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31        

티스토리 툴바