40 lines
1.6 KiB
Racket
40 lines
1.6 KiB
Racket
;; 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 guess3) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
|
|
(require htdp/guess)
|
|
|
|
;; check-guess-for-list : (listof DIGIT) number -> symbol
|
|
;; to determine how guess digits and target relate to each other
|
|
(define (check-guess-for-list guess-list target)
|
|
(check-guess (convert guess-list)target))
|
|
|
|
;; 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)))
|
|
|
|
;; convert : (listof DIGIT) -> number
|
|
;; to convert a vector of digits into a number
|
|
;; 0-th digit is right-most digit in number,
|
|
;; N-th digit is left-most digit in number
|
|
(define (convert digits)
|
|
(cond
|
|
((empty? digits) 0)
|
|
(else (+ (first digits) (* (convert (rest digits)) 10)))))
|
|
|
|
;; EXAMPLES/TESTS for convert:
|
|
(= (convert (cons 1 (cons 2 (cons 3 empty)))) 321)
|
|
(= (convert (cons 4 (cons 5 (cons 6 empty)))) 654)
|
|
|
|
;; EXAMPLES/TESTS for check-guess-for-list:
|
|
(eq? (check-guess-for-list (cons 0 (cons 0 (cons 5 empty))) 631) 'TooSmall)
|
|
(eq? (check-guess-for-list (cons 6 (cons 0 (cons 7 empty))) 631) 'TooLarge)
|
|
(eq? (check-guess-for-list (cons 1 (cons 3 (cons 6 empty))) 631) 'Perfect)
|
|
|
|
;; Test with GUI: set lib to guess-lib.ss
|
|
(check-expect (guess-with-gui-list 2 check-guess-for-list) true)
|
|
|