(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 (bigger? (rectangle 4 2 "solid" "blue")) false)
 
;(define (bigger? img1 im2) false) stub

; (define (bigger? img1 img2)
;   (.....img)              ;template

(define (bigger? img1 img2)
  (<(*(image-width img1) (image-height img2)
      (*(image-width img2) (image-height img1)))))