Question
(@problem 1) ;; ;; The following function design may have errors in it. Please fix the error ;; or errors that you find. Any changes
(@problem 1) ;; ;; The following function design may have errors in it. Please fix the error ;; or errors that you find. Any changes you make should preserve the existing ;; design intent. ;; ;; First uncomment the entire function design, and then fix the error. ;; If you are unable to find and fix the error, leave it commented out. ;; ;; Your solution must include @htdf, @signature, and @template tags.
;(@htdf stack) ;(@signature Image Image -> Image) ;;; stack images, widest on bottom, first on bottom if same width ;(check-expect (stack (rectangle 10 5 "solid" "blue") ; (rectangle 20 9 "solid" "red")) ; (above (rectangle 10 5 "solid" "blue") ; (rectangle 20 9 "solid" "red"))) ;(check-expect (stack (rectangle 20 5 "solid" "blue") ; (rectangle 20 9 "solid" "red")) ; (above (rectangle 20 9 "solid" "red") ; (rectangle 20 5 "solid" "blue"))) ;(check-expect (stack (rectangle 20 5 "solid" "blue") ; (rectangle 10 9 "solid" "red")) ; (above (rectangle 10 9 "solid" "red") ; (rectangle 20 5 "solid" "red"))) ; ;;(define (stack i1 i2) i1) ;stub ; ;(@template Image) ; ;(define (stack i1 i2) ; (if (> image-width i1 image-width i2) ; (above i2 i1) ; (above i1 i2)))
Step by Step Solution
There are 3 Steps involved in it
Step: 1
Get Instant Access to Expert-Tailored Solutions
See step-by-step solutions with expert insights and AI powered tools for academic success
Step: 2
Step: 3
Ace Your Homework with AI
Get the answers you need in no time with our AI-driven, step-by-step assistance
Get Started