;;--- CSU213 Fall 2006 Lecture Notes ---------
;;Copyright 2006 Viera K. Proulx

;; Lecture 1: September 6, 2006
;; Part 1: Data definitions in Scheme-like languages

;; Managing ITunes
;; ---------------

;; A Song is (make-song String String Number Number)
(define-struct song (title artist size price))

;; Examples:
(define help (make-song "Help" "Beatles"  3178852 0.99))
(define hc (make-song "Hotel California" "Eagles" 4405515 0.99))

;; Playing a Game - crossing a minefield
;; -------------------------------------

;; A Player is (make-player String Posn)
(define-struct player (name position))
;; A Mine is represented by a Posn

;; Examples:
(define john (make-player "John" (make-posn 50 50)))
(define mine1 (make-posn 20 50))
(define mine2 (make-posn 50 40))

;; ...

;; Traveling on the T in Boston
;; ----------------------------

;; A Station is (make-station (String String Number))
(define-struct station (name line price))

;; Examples:
(define harvard (make-station "Harvard" "red" 1.25))
(define riverside (make-station "Riverside" "green" 2.50))
(define kenmore (make-station "Kenmore" "green" 1.25))