PasteRack.org | ||
Paste # 95711 | ||
2018-03-18 17:34:32 | ||
Fork as a new paste. | ||
Paste viewed 122 times. | ||
Tweet | ||
Embed: | ||
(require 2htdp/image) ;; Image -> Boolean ;; compares two images to see if first is bigger then second (check-expect (bigger? (rectangle 5 9 "solid" "red")) true) (check-expect (bigger2 (rectangle 4 2 "solid" "blue")) false) ;(define (bigger? img) false) ;(define (bigger2? img) true) stub ; (define (bigger? img) ; define (bigger2? img) (define (bigger? img) (define (bigger2? img) (< bigger? img) (bigger2? img)))