start guess with upper and lower set to 1 and 100

diff --git a/guess.rkt b/guess.rkt
new file mode 100644 (file)
index 0000000..f5c9cca
--- /dev/null
+++ b/guess.rkt
@@ -0,0 +1,8 @@
+#! /usr/bin/env racket
+#lang racket/base
+
+(define lower 1)
+(define upper 100)
+
+(define (guess)
+  (quotient (+ lower upper) 2))