From 5a65e2da159703e20504b7b3a668e65312932394 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 May 2024 21:18:24 -0600 Subject: Remove outdated files --- number-guesser.scm | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 number-guesser.scm (limited to 'number-guesser.scm') 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)) -- cgit v1.2.3