[SICP] 연습문제 1.21

이 문제는 공짜로 풀어버린 느낌이에요. 본문에 코드도 다 나와있고 그냥 주어진 숫자를 넣어서 가장 작은 약수를 찾기만 하면 되니까요.

* 코드

(define (square x) (* x x))

(define (smallest-divisor n)
  (find-divisor n 2))

(define (find-divisor n test-divisor)
  (cond ((> (square test-divisor) n) n)
        ((divides? test-divisor n) test-divisor)
        (else (find-divisor n (+ test-divisor 1)))))

(define (divides? a b)
  (= (remainder b a) 0))

(define (prime? n)
  (= n (smallest-divisor n)))

* 결과
> (smallest-divisor 199)
199
> (smallest-divisor 1999)
1999
> (smallest-divisor 19999)
7


199, 1999는 가장 작은 약수가 자기 자신이니까 소수입니다. 19999 는 작은 약수가 7이네요.
이 문제는 다음 문제들은 위한 떡밥인 듯... ㅎㅎ