Other
CPSC110 problem set 4 solution
- Course
- CPSC 110 (CPSC110)
- Institution
- University Of British Columbia (UBC )
completed solution for problem set 4
[Show more]
Seller
Follow
Content preview
(@problem 1);;
;; The following func7on design may have errors in it. Please fix the error
;; or errors that you find. Any changes you make should preserve the exis7ng
;; design intent. NOTE THAT when fixing an error in exis7ng code the best
;; prac7ce is to change as liHle of the code as possible. That is because
;; in most organiza7ons someone will have to review any changes you make,
;; and changing only what you really mean to change will make that person's
;; job easier. Remember always that the goal is to be kind to your fellow
;; programmers.
;;
;; First uncomment the en7re func7on design, and then fix the error.
;; If you are unable to find and fix the error, leave it commented out.
;; Note that when fixing a bug in an exis7ng program your goal should
;; be to have a light touch. If there is a small simple way to fix
;; something then do it the small and simple way.
;;
;; Your solu7on must include @htdf, @signature, and @template-origin tags.
(@htdf stack)
(@signature Image Image -> Image)
;; stack images, widest on boHom, first on boHom 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" "blue")))
;(define (stack i1 i2) i1) ;stub
(@template-origin Image)
(@template
(define (stack i1 i2)
(... i1 i2)))
, (define (stack i1 i2)
(if (>= (image-width i1) (image-width i2))
(above i2 i1)
(above i1 i2)))
(@problem 2)
;;
;; The following data design may have errors in it. Please fix the error or
;; errors that you find. Any changes you make should preserve the exis7ng
;; design intent. Again, change only the parts of the code you really need
;; to change.
;;
;; Your solu7on must include @htdd tag, @dd-template-rules tag, and a NOT
;; commented fn-for-site template.
;;
(@htdd Site)
;; Site is one of:
;; - "Vancouver"
;; - "Okanagan"
;; - "Robson"
;; - "CDM"
;; interp. a UBC site
;; <Examples are redundant for enumera7ons>
(@dd-template-rules one-of
atomic-dis7nct
atomic-dis7nct
atomic-dis7nct
atomic-dis7nct)
(define (fn-for-site s)
(cond [(string=? s "Vancouver") (...)]
[(string=? s "Okanagan") (...)]
[(string=? s "Robson") (...)]
[(string=? s "CDM") (...)]))
The benefits of buying summaries with Stuvia:
Guaranteed quality through customer reviews
Stuvia customers have reviewed more than 700,000 summaries. This how you know that you are buying the best documents.
Quick and easy check-out
You can quickly pay through credit card or Stuvia-credit for the summaries. There is no membership needed.
Focus on what matters
Your fellow students write the study notes themselves, which is why the documents are always reliable and up-to-date. This ensures you quickly get to the core!
Frequently asked questions
What do I get when I buy this document?
You get a PDF, available immediately after your purchase. The purchased document is accessible anytime, anywhere and indefinitely through your profile.
Satisfaction guarantee: how does it work?
Our satisfaction guarantee ensures that you always find a study document that suits you well. You fill out a form, and our customer service team takes care of the rest.
Who am I buying these notes from?
Stuvia is a marketplace, so you are not buying this document from us, but from seller skye3. Stuvia facilitates payment to the seller.
Will I be stuck with a subscription?
No, you only buy these notes for CA$12.28. You're not tied to anything after your purchase.
Can Stuvia be trusted?
4.6 stars on Google & Trustpilot (+1000 reviews)
60434 documents were sold in the last 30 days
Founded in 2010, the go-to place to buy study notes for 14 years now