Made on IRCNow

Blame

Date:: Fri Aug 4 04:58:02 2023 UTC
Message:: Import sources
Actions:: History | Blob | Raw File
  1 12687dd9 2023-08-04 jrmu ;; The first three lines of this file were inserted by DrScheme. They record metadata
  2 12687dd9 2023-08-04 jrmu ;; about the language level of this file in a form that our tools can easily process.
  3 12687dd9 2023-08-04 jrmu #reader(lib "htdp-intermediate-reader.ss" "lang")((modname 17.6.2-2) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "dir.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "dir.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp")))))
  4 12687dd9 2023-08-04 jrmu ;A word is either
  5 12687dd9 2023-08-04 jrmu ;1. empty or
  6 12687dd9 2023-08-04 jrmu ;2. (cons s w)
  7 12687dd9 2023-08-04 jrmu ;where s is a one-letter symbol ('a, 'b, ...) and '_, and w is a word.
  8 12687dd9 2023-08-04 jrmu ;
  9 12687dd9 2023-08-04 jrmu ;reveal-list : word word symbol -> word
 10 12687dd9 2023-08-04 jrmu ;Given chosen (word), status (word), and guess (one-letter symbol), return the new status word.  A status word represents the progress of the hangman game.  If guess matches a letter in chosen, replace '_ in status with the letter.  Otherwise, return the same status word.
 11 12687dd9 2023-08-04 jrmu ;ASSUMPTION: both chosen and status are the same length.
 12 12687dd9 2023-08-04 jrmu 
 13 12687dd9 2023-08-04 jrmu ;Examples
 14 12687dd9 2023-08-04 jrmu ;(reveal-list '(b r e a d) '(b r e _ _) 'a)
 15 12687dd9 2023-08-04 jrmu ;'(b r e a _)
 16 12687dd9 2023-08-04 jrmu ;
 17 12687dd9 2023-08-04 jrmu ;(reveal-list '(b r e a d) '(b r e _ _) 'x)
 18 12687dd9 2023-08-04 jrmu ;'(b r e _ _)
 19 12687dd9 2023-08-04 jrmu ;
 20 12687dd9 2023-08-04 jrmu ;(reveal-list '(m o o n) '(_ _ _ n) 'o)
 21 12687dd9 2023-08-04 jrmu ;'(_ o o n)
 22 12687dd9 2023-08-04 jrmu 
 23 12687dd9 2023-08-04 jrmu (define (reveal-list chosen status guess)
 24 12687dd9 2023-08-04 jrmu   (cond
 25 12687dd9 2023-08-04 jrmu    [(empty? chosen) empty]
 26 12687dd9 2023-08-04 jrmu    [(cons? chosen)
 27 12687dd9 2023-08-04 jrmu     (cond
 28 12687dd9 2023-08-04 jrmu       [(symbol=? guess (first chosen))
 29 12687dd9 2023-08-04 jrmu        (cons (first chosen) (reveal-list (rest chosen) (rest status) guess))]
 30 12687dd9 2023-08-04 jrmu       [else (cons (first status) (reveal-list (rest chosen) (rest status) guess))])]))
 31 12687dd9 2023-08-04 jrmu 
 32 12687dd9 2023-08-04 jrmu ; Defines canvas width (CWIDTH) and canvas height (CHEIGHT)
 33 12687dd9 2023-08-04 jrmu ; Defines center of x-axis                              
 34 12687dd9 2023-08-04 jrmu (define CWIDTH 600)
 35 12687dd9 2023-08-04 jrmu (define CHEIGHT 600)
 36 12687dd9 2023-08-04 jrmu (define XCENTER (/ CWIDTH 2))
 37 12687dd9 2023-08-04 jrmu (define COLORHEAD 'brown)
 38 12687dd9 2023-08-04 jrmu (define COLORBODY 'purple)
 39 12687dd9 2023-08-04 jrmu (define COLORARMS 'brown)
 40 12687dd9 2023-08-04 jrmu (define COLORLEGS 'red)
 41 12687dd9 2023-08-04 jrmu 
 42 12687dd9 2023-08-04 jrmu ; draw-noose : symbol -> boolean
 43 12687dd9 2023-08-04 jrmu ; Draws the corresponding part and returns true if evaluation succeeds, false
 44 12687dd9 2023-08-04 jrmu ; if the part to be drawn does not match this function.
 45 12687dd9 2023-08-04 jrmu 
 46 12687dd9 2023-08-04 jrmu (define (draw-noose part)
 47 12687dd9 2023-08-04 jrmu   (cond
 48 12687dd9 2023-08-04 jrmu     [(symbol=? part 'noose)
 49 12687dd9 2023-08-04 jrmu      (and
 50 12687dd9 2023-08-04 jrmu       (draw-solid-line (make-posn 0 (/ CHEIGHT 10))
 51 12687dd9 2023-08-04 jrmu                        (make-posn XCENTER (/ CHEIGHT 10)))
 52 12687dd9 2023-08-04 jrmu       (draw-solid-line (make-posn XCENTER (/ CHEIGHT 10))
 53 12687dd9 2023-08-04 jrmu                        (make-posn XCENTER (/ CHEIGHT 5))))]
 54 12687dd9 2023-08-04 jrmu     [else false]))  
 55 12687dd9 2023-08-04 jrmu 
 56 12687dd9 2023-08-04 jrmu ; draw-head : symbol -> boolean
 57 12687dd9 2023-08-04 jrmu 
 58 12687dd9 2023-08-04 jrmu (define (draw-head part)
 59 12687dd9 2023-08-04 jrmu   (cond
 60 12687dd9 2023-08-04 jrmu     [(symbol=? part 'head)
 61 12687dd9 2023-08-04 jrmu      (draw-circle (make-posn XCENTER (/ CHEIGHT 3)) (* CHEIGHT 2/15) COLORHEAD)]
 62 12687dd9 2023-08-04 jrmu     [else false]))
 63 12687dd9 2023-08-04 jrmu 
 64 12687dd9 2023-08-04 jrmu ; draw-body : symbol -> boolean
 65 12687dd9 2023-08-04 jrmu 
 66 12687dd9 2023-08-04 jrmu (define (draw-body part)
 67 12687dd9 2023-08-04 jrmu   (cond
 68 12687dd9 2023-08-04 jrmu     [(symbol=? part 'body)
 69 12687dd9 2023-08-04 jrmu      (draw-solid-line (make-posn XCENTER (* 7/15 CHEIGHT))
 70 12687dd9 2023-08-04 jrmu                       (make-posn XCENTER (* CHEIGHT 3/4))
 71 12687dd9 2023-08-04 jrmu                       COLORBODY)]
 72 12687dd9 2023-08-04 jrmu     [else false]))
 73 12687dd9 2023-08-04 jrmu 
 74 12687dd9 2023-08-04 jrmu ; draw-right-arm : symbol -> boolean
 75 12687dd9 2023-08-04 jrmu (define (draw-right-arm part)
 76 12687dd9 2023-08-04 jrmu   (cond
 77 12687dd9 2023-08-04 jrmu     [(symbol=? part 'right-arm)
 78 12687dd9 2023-08-04 jrmu      (draw-solid-line (make-posn XCENTER (* 3/5 CHEIGHT))
 79 12687dd9 2023-08-04 jrmu                       (make-posn (* CWIDTH 3/4) (* CHEIGHT 7/15))
 80 12687dd9 2023-08-04 jrmu                       COLORARMS)]
 81 12687dd9 2023-08-04 jrmu     [else false]))
 82 12687dd9 2023-08-04 jrmu 
 83 12687dd9 2023-08-04 jrmu ; draw-left-arm : symbol -> boolean
 84 12687dd9 2023-08-04 jrmu (define (draw-left-arm part)
 85 12687dd9 2023-08-04 jrmu   (cond
 86 12687dd9 2023-08-04 jrmu     [(symbol=? part 'left-arm)
 87 12687dd9 2023-08-04 jrmu      (draw-solid-line (make-posn XCENTER (* 3/5 CHEIGHT))
 88 12687dd9 2023-08-04 jrmu                       (make-posn (* CWIDTH 1/4) (* CHEIGHT 7/15))
 89 12687dd9 2023-08-04 jrmu                       COLORARMS)]
 90 12687dd9 2023-08-04 jrmu     [else false]))
 91 12687dd9 2023-08-04 jrmu 
 92 12687dd9 2023-08-04 jrmu ; draw-right-leg : symbol -> boolean
 93 12687dd9 2023-08-04 jrmu (define (draw-right-leg part)
 94 12687dd9 2023-08-04 jrmu   (cond
 95 12687dd9 2023-08-04 jrmu     [(symbol=? part 'right-leg)
 96 12687dd9 2023-08-04 jrmu      (draw-solid-line (make-posn XCENTER (* 3/4 CHEIGHT))
 97 12687dd9 2023-08-04 jrmu                       (make-posn (* CWIDTH 7/8) (* CHEIGHT 15/16))
 98 12687dd9 2023-08-04 jrmu                       COLORLEGS)]
 99 12687dd9 2023-08-04 jrmu     [else false]))
100 12687dd9 2023-08-04 jrmu 
101 12687dd9 2023-08-04 jrmu ; draw-left-leg : symbol -> boolean
102 12687dd9 2023-08-04 jrmu (define (draw-left-leg part)
103 12687dd9 2023-08-04 jrmu   (cond
104 12687dd9 2023-08-04 jrmu     [(symbol=? part 'left-leg)
105 12687dd9 2023-08-04 jrmu      (draw-solid-line (make-posn XCENTER (* 3/4 CHEIGHT))
106 12687dd9 2023-08-04 jrmu                       (make-posn (* CWIDTH 1/8) (* CHEIGHT 15/16))
107 12687dd9 2023-08-04 jrmu                       COLORLEGS)]
108 12687dd9 2023-08-04 jrmu     [else false]))
109 12687dd9 2023-08-04 jrmu 
110 12687dd9 2023-08-04 jrmu ; draw-next-part : symbol -> boolean
111 12687dd9 2023-08-04 jrmu ; Draws the next part given the name of the part.  Returns true if
112 12687dd9 2023-08-04 jrmu ; drawing is successful.
113 12687dd9 2023-08-04 jrmu 
114 12687dd9 2023-08-04 jrmu (define (draw-next-part part)
115 12687dd9 2023-08-04 jrmu   (cond
116 12687dd9 2023-08-04 jrmu     [(symbol=? part 'noose) (draw-noose part)]
117 12687dd9 2023-08-04 jrmu     [(symbol=? part 'head) (draw-head part)]
118 12687dd9 2023-08-04 jrmu     [(symbol=? part 'body) (draw-body part)]
119 12687dd9 2023-08-04 jrmu     [(symbol=? part 'right-arm) (draw-right-arm part)]
120 12687dd9 2023-08-04 jrmu     [(symbol=? part 'left-arm) (draw-left-arm part)]    
121 12687dd9 2023-08-04 jrmu     [(symbol=? part 'right-leg) (draw-right-leg part)]    
122 12687dd9 2023-08-04 jrmu     [(symbol=? part 'left-leg) (draw-left-leg part)]))
123 12687dd9 2023-08-04 jrmu 
124 12687dd9 2023-08-04 jrmu (start CWIDTH CHEIGHT)
125 12687dd9 2023-08-04 jrmu (hangman-list reveal-list draw-next-part)