[SICP] 연습문제 1.20

백만년만에 푸는 연습문제..
오랫만에 푸는에 괄호 때문에 토 나올뻔 했다는;;

gcd 프로시저를 normal-order로 계산하는 경우 프로세스:

1. (gcd 206 40)
2. (if (= 40 0) 206
        (gcd 40 (r 206 40)))
3. (if (= (r 206 40) 0) 40                                                                                             : b = 6 not 0
        (gcd (r 206 40) (r 40 (r 206 40))))
4. (if (= (r 40 (r 206 40)) 0) (r 206 40)                                                                           : b = 4 not 0
        (gcd (r 40 (r 205 40)) (r (r 206 40) (r 40 (r 206 40))))))
5. (if (= (r (r 206 40) (r 40 (r 206 40))) 0) (r 40 (r 206 40))                                                 : b = 2 not 0
        (gcd (r (r 206 40) (r 40 (r 206 40))) (r (r 40 (r 206 40)) (r (r 206 40) (r 40 (r 206 40)))))))
6. (if (= (r (r 40 (r 206 40)) (r (r 206 40) (r 40 (r 206 40)))) 0) (r (r 206 40) (r 40 (r 206 40)))   : b = 0


* 20080804
이 문제를 풀이과정까지 다 만들어놓고 답이 틀려서 비공개로 봉인한 채 몇 주가 흘렀군요. 이것 때문에 패닉상태에 빠져 지난 번 모임에서도 다른 분들까지 물귀신 작전으로 괴롭히고, 컴키드님의 비책까지 얻었습니다. 그러던 중 오늘 블로그에 글을 살펴보다가 이 글을 발견하고 다시 들여다보다가 제가 놓친 부분을 발견했습니다!!!

처음 r이 호출되는 횟수를 11번으로 생각했는데, 정의대로 계산법이 코드를 전부 풀어놓고 하나씩 살펴보는 방법이라 6번 줄의 r의 숫자만 센거였어요. 하지만 6번까지 오는 과정에서 if 문으로 종료 조건인지 확인하는 과정을 거쳐야하니까 3, 4, 5번의 r을 빼먹은거였죠;; 다시 세보니 r이 호출되는 건 18번...

노느라 정신이 나가서 집중력 부족으로 살짝 미뤄둔 컴키드님의 비책도 다시 살펴야겠습니다. ㅎㅎ