39 lines
1.4 KiB
Scheme
39 lines
1.4 KiB
Scheme
;; The first three lines of this file were inserted by DrScheme. They record metadata
|
|
;; about the language level of this file in a form that our tools can easily process.
|
|
#reader(lib "htdp-beginner-reader.ss" "lang")((modname guess2) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
|
|
(require (lib "guess.ss" "htdp"))
|
|
|
|
;; check-guess3 : digit digit digit number -> symbol
|
|
;; to determine how three guess digits and target relate to each other
|
|
(define (check-guess3 d0 d1 d2 target)
|
|
(check-guess (convert3 d0 d1 d2) target))
|
|
|
|
;; convert3: digit digit digit -> number
|
|
;; to convert three digits, from right to left, into a number
|
|
(define (convert3 d0 d1 d2)
|
|
(+ (* 100 d2)(+ (* 10 d1) d0)))
|
|
|
|
;; check-guess : number number -> symbol
|
|
;; to determine how guess and target relate to each other
|
|
(define (check-guess guess target)
|
|
(cond
|
|
((< target guess) 'TooLarge)
|
|
((= target guess) 'Perfect)
|
|
((> target guess) 'TooSmall)))
|
|
|
|
;; Tests for check-guess3:
|
|
(= (convert3 0 0 5) 500)
|
|
(= (convert3 1 2 3) 321)
|
|
|
|
;; Tests for check-guess3:
|
|
(eq? (check-guess3 0 0 5 631) 'TooSmall)
|
|
(eq? (check-guess3 0 0 7 631) 'TooLarge)
|
|
(eq? (check-guess3 1 3 6 631) 'Perfect)
|
|
|
|
;; Test with GUI: set lib to guess-lib.ss
|
|
(check-expect (guess-with-gui-3 check-guess3) true)
|
|
|
|
; (define (foo x) x) (guess-with-gui-3 foo)
|
|
; (guess-with-gui-3 'a)
|
|
|