From 9d23e66fe8332abc7a1bbd9022f3e58e1133b3fb Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Fri, 3 Jul 2020 15:49:09 -0400
Subject: name directories like the realm repo.

---
 five/guess.rkt | 75 ----------------------------------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 five/guess.rkt

(limited to 'five/guess.rkt')

diff --git a/five/guess.rkt b/five/guess.rkt
deleted file mode 100644
index f7a117a..0000000
--- a/five/guess.rkt
+++ /dev/null
@@ -1,75 +0,0 @@
-#lang racket
-(require 2htdp/universe 2htdp/image)
-
-(struct interval (small big guesses))
-
-;;; constants
-(define TEXT-SIZE 12)
-(define HELP-TEXT
-  (text "↑ for larger numbers, ↓ for smaller ones"
-        TEXT-SIZE
-        "blue"))
-(define HELP-TEXT2
-  (text "Press = when your number is guessed; q to quit."
-        TEXT-SIZE
-        "blue"))
-(define COLOR "red")
-(define WIDTH (+ (image-width HELP-TEXT2) 10))
-(define HEIGHT 150)
-(define SIZE 72)
-(define TEXT-X 3)
-(define TEXT-UPPER-Y 10)
-(define TEXT-LOWER-Y 135)
-(define GUESSES-SIZE 12)
-(define GUESSES-COLOR "green")
-(define MT-SC
-  (place-image/align
-   HELP-TEXT TEXT-X TEXT-UPPER-Y "left" "top"
-   (place-image/align
-    HELP-TEXT2 TEXT-X TEXT-LOWER-Y "left" "bottom"
-    (empty-scene WIDTH HEIGHT))))
-
-;; main
-(define (start lower upper)
-  (big-bang (interval lower upper 0)
-            (on-key deal-with-guess)
-            (to-draw render)
-            (stop-when single? render-last-scene)))
-
-;; key events
-(define (deal-with-guess w key)
-  (cond [(key=? key "up") (bigger w)]
-        [(key=? key "down") (smaller w)]
-        [(key=? key "q") (stop-with w)]
-        [(key=? key "=") (stop-with w)]
-        [else w]))
-
-(define (smaller w)
-  (interval (interval-small w)
-            (max (interval-small w) (sub1 (guess w)))
-            (+ 1 (interval-guesses w))))
-
-(define (bigger w)
-  (interval (min (interval-big w) (add1 (guess w)))
-            (interval-big w)
-            (+ 1 (interval-guesses w))))
-
-(define (guess w)
-  (quotient (+ (interval-small w) (interval-big w)) 2))
-
-(define (render w)
-  (overlay (overlay/offset
-            (text (number->string (guess w)) SIZE COLOR) 0 40
-            (text (number->string (interval-guesses w))
-                  GUESSES-SIZE GUESSES-COLOR))
-           MT-SC))
-
-(define (render-last-scene w)
-  (overlay (overlay/offset
-            (text "End" SIZE COLOR) 0 40
-            (text (number->string (interval-guesses w))
-                  GUESSES-SIZE GUESSES-COLOR))
-           MT-SC))
-
-(define (single? w)
-  (= (interval-small w) (interval-big w)))
-- 
cgit v1.2.3