232.rkt

;; 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-beginner-abbr-reader.ss" "lang")((modname 232ex) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f () #f)))
;; Exercise 232
;; ------------
;; Eliminate quasiquote and unquote from the following expressions so that they
;; are written with list instead:
;;
;; `(1 "a" 2 #false 3 "c")
;;
;; this table-like shape:
;;
;;    `(("alan" ,(* 2 500))
;;      ("barb" 2000)
;;      (,(string-append "carl" " , the great") 1500)
;;      ("dawn" 2300))
;;
;; and this second web page:
;;
;;    `(html
;;       (head
;;         (title ,title))
;;       (body
;;         (h1 ,title)
;;         (p "A second web page")))
;;
;; where (define title "ratings")
;;
;; Also write down the nested lists that the expressions produce. 
;; -----------------------------------------------------------------------------

`(1 "a" 2 #false 3 "c")
; == 
(list 1 "a" 2 #false 3 "c")


`(("alan" ,(* 2 500))
  ("barb" 2000)
  (,(string-append "carl" " , the great") 1500)
  ("dawn" 2300))
; ==
(list (list "alan" (* 2 500))
      (list "barb" 2000)
      (list (string-append "carl" " , the great") 1500)
      (list  "dawn" 2300))

(define title "ratings")

`(html
   (head
     (title ,title))
   (body
     (h1 ,title)
     (p "A second web page")))
; ==
(list 'html
      (list 'head (list 'title "ratings"))
      (list 'body (list 'h1 "ratings") (list 'p "A second web page")))