Migrate Chapter1 from Scheme to Racket

Author: ramsayleung

chapter1/count-change.scm

@@ -1,8 +1,9 @@
+#lang racket
 (define (count-change amount)
   (cc amount 5))
 (define (cc amount kinds-of-coins)
   (cond ((= amount 0) 1)
-	((or (< mount 0) (= kinds-of-coins 0)0))
+	((or (< amount 0) (= kinds-of-coins 0)0))
 	(else (+ (cc amount
 		     (- kinds-of-coins 1))
 		 (cc (- amount

chapter1/exercise1-10.scm

@@ -1,3 +1,4 @@
+#lang racket
 (define (A x y)
   (cond ((= y 0) 0)
 	((= x 0) (* 2 y))

chapter1/exercise1-21.scm

@@ -1,3 +1,4 @@
+#lang racket
 (define (smallest-divisor n)
   (find-divisor n 2))
 (define (square n)

chapter1/exercise1-22.scm

@@ -1,3 +1,6 @@
+#lang racket
+(require "time.rkt")
+
 (define (prime? n)
   (define (smallest-divisor n)
     (find-divisor n 2))
@@ -15,7 +18,7 @@
   (start-prime-test n (runtime)))
 
 (define (start-prime-test n start-time)
-  (if (prime? n)
+  (when (prime? n)
       (report-prime n (- (runtime) start-time))))
 
 (define (report-prime n elapsed-time)
@@ -26,8 +29,8 @@
   )
 
 (define (search-iter current last)
-  (if (<= current last) (timed-prime-test current))
-  (if (<= current last) (search-iter (+ current 2)last)))
+  (when (<= current last) (timed-prime-test current))
+  (when (<= current last) (search-iter (+ current 2)last)))
 
 (define (search-for-primes first last)
   (search-iter (if (even? first) (+ first 1)first)

chapter1/exercise1-23.scm

@@ -1,3 +1,5 @@
+#lang racket
+(require "time.rkt")
 
 (define (prime? n)
   (define (next next-divisor)
@@ -19,7 +21,7 @@
   (start-prime-test n (runtime)))
 
 (define (start-prime-test n start-time)
-  (if (prime? n)
+  (when (prime? n)
       (report-prime n (- (runtime) start-time))))
 
 (define (report-prime n elapsed-time)

chapter1/exercise1-24.scm

@@ -1,3 +1,6 @@
+#lang racket
+(require "time.rkt")
+
 (define (square n)
   (* n n))
 (define (expmod base exp m)
@@ -21,7 +24,7 @@
   (start-prime-test n (runtime)))
 
 (define (start-prime-test n start-time)
-  (if (fast-prime? n 10)
+  (when (fast-prime? n 10)
       (report-prime n (- (runtime) start-time))))
 
 (define (report-prime n elapsed-time)
@@ -32,8 +35,8 @@
   )
 
 (define (search-iter current last)
-  (if (<= current last) (timed-prime-test current))
-  (if (<= current last) (search-iter (+ current 2)last)))
+  (when (<= current last) (timed-prime-test current))
+  (when (<= current last) (search-iter (+ current 2)last)))
 
 (define (search-for-primes first last)
   (search-iter (if (even? first) (+ first 1)first)

chapter1/exercise1-25.scm renamed to chapter1/exercise1-25.org

@@ -1,3 +1,5 @@
+#lang racket
+
 (define (square x)
   (* x x))
 (define (expmod base exp m)

chapter1/exercise1-26.scm renamed to chapter1/exercise1-26.org

@@ -1,3 +1,4 @@
+#lang racket
 (define (square x) (* x x)) 
 
 (define (miller-rabin-expmod base exp m)