The first three lines of this file were inserted by DrRacket. They record metadata ;; about the language level of this file in a form that our tools can easily process. #reader(lib “htdp-intermediate-reader.ss” “lang”)((modname hw7-problem1) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f () #f))) (require 2htdp/image) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Problem 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; This problem asks you to design several functions that employ the ; following data definitions. The functions that you design *must* use ; list abstraction(s) when appropriate; you MAY NOT use recursion: doing ; so will lead you to get no code credit for the function 🙁 ; ; NOTE #1: Part of the credit for each problem will be based on the choice ; of list abstractions, so make sure that they are a good match for the ; problem. ; ; NOTE #2: For certain problems, you will have to design helper functions ; that do not use list abstractions. You should follow the full design ; recipe (including appropriate use of templates) for all problems. Be sure ; to do this, even if it feels a bit tedious – listen to your templates!! ; ; Data Definitions (do not modify these) ; A Weekday is one of: ; – “Monday” ; – “Tuesday” ; – “Wednesday” ; – “Thursday” ; – “Friday” ; Interpretation: a day that excludes the weekend (define WEEKDAY-M “Monday”) (define WEEKDAY-T “Tuesday”) (define WEEKDAY-W “Wednesday”) (define WEEKDAY-R “Thursday”) (define WEEKDAY-F “Friday”) (define (weekday-temp w) (… (cond [(string=? w WEEKDAY-M) …] [(string=? w WEEKDAY-T) …] [(string=? w WEEKDAY-W) …] [(string=? w WEEKDAY-R) …]