summaryrefslogtreecommitdiff
path: root/number-guesser.scm
diff options
context:
space:
mode:
Diffstat (limited to 'number-guesser.scm')
-rw-r--r--number-guesser.scm31
1 files changed, 0 insertions, 31 deletions
diff --git a/number-guesser.scm b/number-guesser.scm
deleted file mode 100644
index 486eea5..0000000
--- a/number-guesser.scm
+++ /dev/null
@@ -1,31 +0,0 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Example game: ;;
-;; scheme@(guile-user)> (start 60 70) ;;
-;; $21 = 65 ;;
-;; scheme@(guile-user)> (bigger) ;;
-;; $22 = 68 ;;
-;; scheme@(guile-user)> (bigger) ;;
-;; $23 = 69 ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; also see (info "(guile) Definition")
-
-(define lower 1)
-(define upper 100)
-
-(define (start n m)
- (set! lower (min n m))
- (set! upper (max n m))
- (guess))
-
-;;;; helpers
-(define (guess)
- (quotient (+ lower upper) 2))
-
-(define (smaller)
- (set! upper (max lower (- (guess) 1)))
- (guess))
-
-(define (bigger)
- (set! lower (min upper (+ (guess) 1)))
- (guess))