summaryrefslogtreecommitdiff
path: root/number-guesser.scm
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2024-05-18 21:18:24 -0600
committerbd <bdunahu@operationnull.com>2024-05-18 21:18:24 -0600
commit5a65e2da159703e20504b7b3a668e65312932394 (patch)
tree8c4e3520333ae427c65c9679c2d89b24eeb7a5ce /number-guesser.scm
parent5601c7ce365b32ddf3e150082510660b8e4925c2 (diff)
Remove outdated files
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))