src/sicp/ex1_21.clj

   1 (ns sicp.ex1_21
   2   (:use [sicp utils]
   3         [clojure.contrib trace test-is]))
   4
   5 ;; exercise 1.21
   6 (comment
   7 user> (smallest-divisor 199)
   8 199
   9 user> (smallest-divisor 1999)
  10 1999
  11 user> (smallest-divisor 19999)
  12 7
  13 )