1 files changed, 1 insertions, 18 deletions
diff --git a/coding-exercises/1/23.rkt b/coding-exercises/1/23.rkt
index f44c87c..15a3485 100644
--- a/coding-exercises/1/23.rkt
+++ b/coding-exercises/1/23.rkt
@@ -1,24 +1,7 @@
 #lang racket
-(require racket/pretty)
+(require "../../shared/chapter1.rkt")
 (require sicp)
 
-(define (next n)
-  (if (= n 2) 3 (+ n 2)))
-
-(define (find-divisor n test-divisor)
-  (cond ((> (square test-divisor) n) n)
-        ((divides? test-divisor n) test-divisor)
-        (else (find-divisor n (next test-divisor)))))
-
-
-(define (smallest-divisor n)
-  (find-divisor n 2))
-
-(define (square x) (* x x))
-
-(define (divides? a b)
-  (= (remainder b a) 0))
-
 (define (prime? n)
   (= n (smallest-divisor n)))