CS 116 Tutorial 4 Mutation Review set begin

CS 116 Tutorial 4 Mutation

Review �set! �begin �equal? vs. eq? �Memory diagrams

Review: set! v has to be defined (ex. constant); cannot be a parameter of a function (set! v new_value) (set-struct-field! s new_value) Structure’s name Field of the structure �Used s is a structure; can be a constant or a parameter to change the value of v/s to new_value �Produces (void) type �Return type is Void

Review: begin (begin ex 1 ex 2 … exn) �Begin Expressions or values (ex. Mutation) Cannot define anything here The value = The value produced by exn produced by begin allows you to execute a series of code �The expressions are executed in order from ex 1 to exn

Review: equal? vs. eq? x y) => true if x and y have the same fields; else false �(equal? x y) => true if x and y are aliases; else false �Aliases are variables that reference (point to) the same value in memory �(eq?

Rules for drawing memory diagrams For each set!, change one thing and one thing ONLY 2) Atomic values (i. e. number, string, boolean, symbol) go into the small box beside the variable 3) Complex values (i. e. values too big to fit in the small boxes – lists, structures, functions) go into their own bigger boxes and draw an arrow from the variable’s small box to the value in the big box 1)

1. What are the values of x and y after evaluating this code? (define x (make-posn 4 100)) (define y x) (set! x 1000)

2. What is produced by the following code? (define p (make-posn 3 7)) (define q (make-posn 3 7)) (define r q) (equal? p q) (equal? r q) (eq? r q)

(define-struct date (day month year)) ; ; A date is a structure (make-date d m y) where: ; ; * d is a nat in the range [1. . . 30] ; ; * m is a nat in the range [1. . . 12] ; ; * y is any integer 3. Write a function change-the-year that consumes a date structure birthday, and an integer, new-year. The function should change the year of birthday to newyear. Do not use the function make-date in your solution.

(define-struct date (day month year)) ; ; A date is a structure (make-date d m y) where: ; ; * d is a nat in the range [1. . . 30] ; ; * m is a nat in the range [1. . . 12] ; ; * y is any integer 4. Using change-the-year, write a function changeyear that consumes a list of date structures birthdays, and an integer, new-year. The function should change the year of each date structure in birthdays to new-year and output at the end: ? dates changed where ? is the number of birthday structures mutated. Do not use the function make-date in your solution.

5. Consider the following structure to record the wins-losses-ties record of a sports team: (define-struct team-record (wins losses ties)) ; ; A team-record is a structure (make-team-record w l t), where ; ; w is a nat (number of wins) ; ; l is a nat (number of losses) ; ; t is a nat (number of ties) Draw the memory diagram corresponding to the following Scheme code: (1) (2) (3) (4) (5) (6) (7) (define record 1 (make-team-record 5 2 2)) (define record 2 (make-team-record 6 3 1)) (define record 3 record 2) (set-team-record-wins! record 1 6) (set-team-record-ties! record 2 2) (set! record 2 record 1) (set-team-record-losses! record 1 (team-record-losses record 2))

5

6. Consider the following structure to record a team's name, number of points and their team-record. Note that points are calculated as: 2 points for a win, 0 for a loss, and 1 for a tie. (define-struct team (name points played)) ; ; A team is structure (make-team n p r), where ; ; n is a string (name of team) ; ; p is a nat (number of points, based on 2 points ; ; for a win, 1 for a tie, 0 for a loss). ; ; r is a team-record (containing number of wins, ; ; losses, ties for team) a) Draw memory diagram for the following Scheme code: (1) (define record 4 (make-team-record 4 1 2)) (2) (define aces (make-team "Aces" 10 record 4)) (3) (define hawks (make-team "Hawks" 8 (make-team-record 4 2 0)))

6

6. Consider the following structure to record a team's name, number of points and their team-record. Note that points are calculated as: 2 points for a win, 0 for a loss, and 1 for a tie. (define-struct team (name points played)) ; ; A team is structure (make-team n p r), where ; ; n is a string (name of team) ; ; p is a nat (number of points, based on 2 points ; ; for a win, 1 for a tie, 0 for a loss). ; ; r is a team-record (containing number of wins, ; ; losses, ties for team) b) Write a Scheme function add-loss that consumes a team structure, my-team. The function should increase the number of losses for that team by 1, and produce (void).

6. Consider the following structure to record a team's name, number of points and their team-record. Note that points are calculated as: 2 points for a win, 0 for a loss, and 1 for a tie. (define-struct team (name points played)) ; ; A team is structure (make-team n p r), where ; ; n is a string (name of team) ; ; p is a nat (number of points, based on 2 points ; ; for a win, 1 for a tie, 0 for a loss). ; ; r is a team-record (containing number of wins, ; ; losses, ties for team) c) Write Scheme functions add-win and addtie, which each consume a team structure. The functions should increase the number of wins/ties for that team by 1, and update the total points for that team appropriately.

d) Extend the memory diagram from part (a) with the following Scheme code: (add-win aces) (add-tie aces) (add-loss hawks) (define another-aces) (add-win another-aces)

6