110_prelab_lab6

CsubcNotes

-
prelab for defining sentence tree for Question one
(@htdd SentenceTree)
(define-struct st (content children))
;; SentenceTree is (make-st String ListOfSt)
;; interp. a sentence tree 
;;         content is the sentence content
;;         ListOfSt is their immediate children


(@htdd ListOfSt)
;;
;; ListOfSt is one of:
;;  - empty
;;  - (cons sentenceTree ListOfSt)
;; interp. a list of st

(define ST-JOKE (make-st "JOKING ABOUT JEALOUSY" empty))
(define ST1 (make-st "YOU REALLY MEAN IT" empty))
(define ST2 (make-st "WE ARE IN A BACK TO SCHOOL SPECIAL ABOUT MONO" empty))
(define ST3 (make-st "WE ARE PERCHED ON THE TIP OF A SINKING SHIP" empty))
(define ST-LIKE (make-st "LIKE" (list ST1 ST2 ST3)))
(define ST5 (make-st "FREEZE TIME" empty))
(define ST6 (make-st "MY FAVOURITE SONG ON REPEAT" empty))
(define ST-TO (make-st "TO" (list ST5 ST6)))
(define ST-KISSME (make-st "KISS ME" (list ST-JOKE ST-LIKE ST-TO)))