29 lines
1.2 KiB
Scheme
29 lines
1.2 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 master) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
|
|
(require (lib "master.ss" "htdp"))
|
|
|
|
; (load "tester.ss")
|
|
|
|
;; check-guess : color color color color -> symbol
|
|
|
|
(define (check-guess target1 target2 guess1 guess2)
|
|
(cond
|
|
((and (eq? target1 guess1) (eq? target2 guess2))
|
|
'perfect)
|
|
((or (eq? target1 guess1) (eq? target2 guess2))
|
|
'one_color-at_correct_position)
|
|
((or (eq? target1 guess2) (eq? target2 guess1))
|
|
'the_colors_occur)
|
|
(else 'nothing_correct)))
|
|
|
|
;; Tests:
|
|
(eq? (check-guess 'white 'blue 'white 'blue) 'perfect)
|
|
(eq? (check-guess 'white 'blue 'red 'blue) 'one_color-at_correct_position)
|
|
(eq? (check-guess 'white 'blue 'blue 'red) 'the_colors_occur)
|
|
(eq? (check-guess 'white 'blue 'red 'green) 'nothing_correct)
|
|
|
|
(check-expect (master check-guess) true)
|
|
; (check-error (master 1) "master: primitive operator master expects a defined procedure name (usually `compare-guess') in this position")
|
|
; (check-error (master first) ...)
|