PasteRack.org
Paste # 95711
2018-03-18 17:34:32

Fork as a new paste.

Paste viewed 122 times.


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)))