;; 1
;;A person is:
;; (make-person string string number)
(define-struct person (first last age))

;; make-person: string string number -> person

;; person-first: person -> string
;; person-last: person -> string
;; person-age: person -> number

;; person?: any -> boolean

; ;; person-fun: person -> ?
; ;; given  produces ...
; (define (person-fun a-person)
;   (person-first a-person)
;   (person-last a-person)
;   (person-grade a-person)
;   (person-teacher a-person))
;
; (check-expect (person-fun ...) ...)
; (check-expect (person-fun ...) ...)
; (check-expect (person-fun ...) ...)
; (check-expect (person-fun ...) ...)
;


(define EMILY (make-student "Emily" "Stevens" 2 "Dominguez"))
(define SAMANTHA (make-student "Samantha "Dearing" 4 "McDermott"))
(define KYLE (make-student "kyle" "Newman" 1 "Hunt"))



(define JOHN_Doe (make-person "John" "Doe" 25))
(define JEFF (make-person "Jeff" 15))
(define HALEH (make-person "Haleh" 16))
(define SAM (make-person "Sam" 13))

;;2
;;A book is:
;;(make-book string string string number)
(define-struct book (author title section price))

;;Constructor
;;book: string string string number -> book

;;Selectors
;;book author: book -> string
;;book title: book -> string
;;book section: book- > string
;;book price:book -> price

;predicates
;;;book?: any-> boolean

; ;;book-fun: book -> ?
; ;;given ...pproduces,,,
; (define (book-fun a-book)
;   (book-auther a-book)
;   (book-title a-book)
;   (book-section a-book)
;   (book-price a-book))
;
; (check-expect




(define BEAUTIFUL-CREATURES (make-book "Kami Garcia & Margaret Stohl"
                              "Beautiful Creatures" "young adult" 8.99))
(define RAINWATER (make-book "Sandra Brown" "Rainwater" "romance" 7.99))
(define HOST (make-book "Stephanie Meyer" "The Host" "suspense" 15.00))
(define COLORS (make-book "Doris Mortman" "True Colors" "young adult" 12.99))