coding-exercises/1/21.rkt


1
2
3
4
5
6
7
8
9
10

#lang racket
(require "../../shared/chapter1.rkt")
(require sicp)

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

;; (pretty-print (smallest-divisor 199))
;; (pretty-print (smallest-divisor 1999))
;; (pretty-print (smallest-divisor 19999))