]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_39.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex3_39.rkt
1 #lang racket
2
3 #|
4
5 Only the below three cases will remain:
6
7 101:    P1 sets x to 100 and then P2 increments x to 101.
8 121:    P2 increments x to 11 and then P1 sets x to x times x (121).
9 100:    P1 accesses x (twice), then P2 sets x to 11, then P1 sets x.
10
11 |#