Scheme SICP

今回は素数の問題

ひたすら除数を見つける関数

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

(define (find-divisor n div)
  (cond ((> (* div div ) n) n)
	((isdivides div n) div)
	(else (find-divisor n (+ div 1)))))

(define (isdivides a b)
  (= (remainder b a) 0))

(define (square n)
  (* n n))

を使って199,1999,19999
の最小除数を求める。

答えは199,199,7