CS 15100 Fall 2005

LecturesMWF 9:30 - 10:20 Ryerson 251
BT lookup & BST lookup: lecture10.pdf
Merge: lecture11.pdf

LabTu 3:00 - 4:30 JRL A01C (Mac lab)
Lab webpage

Final ProjectDue: 12/05 at midnight
Spec: html pdf
Teachpack: zip (works with DrScheme v209 and DrScheme v299.400 -- see the spec for details.)

ExamsExam 1: 10/25 Ry 251 3pm - 4:20 (during lab time) [solution]
Exam 2: 11/22 Ry 251 3pm - 4:20 (during lab time) [solution]

TextHow to Design Programs

The Little Schemer
by Freidman and Felleisen

Structure and Interpretation of Computer Programs
by Abelson and Sussman

9/26, 9/28, 9/30Soduku
Guest Lecturer: Stuart Kurtz
No lab this week
10/3, 10/5, 10/7Basic forms of DataCh 2 - 6
10/10, 10/12, 10/14Unions and ListsCh 7 - 10
10/17, 10/19, 10/21Lists and TreesCh 12 - 14
10/24, 10/26, 10/28Iterative refinement, 2 Complex Pieces of Data, localCh 16 - 18
10/31, 11/2, 11/4Mutually Referential Data Defintions, AbstractionCh 15, 19 - 21
11/7, 11/9, 11/11lambda, natural-numbers, Generative RecursionCh 22 - 24, 11, 25, 26, 28
11/14, 11/16, 11/18Generative Recursion, AccumulatorsCh 26, 28, 30 - 32
11/21, 11/23Accumulators, EvaluationCh 30 - 32, 14
11/28, 11/30Types, Looking forwardno text

Mailing ListSubscribe Archive


CS Lab

Exam One:25%
Exam Two:25%
Final Project:30%

Robby Findler
Office Hours: by appt
Office: Hinds B-031

Ken Harris

Henry Wu
Office: Ryerson 178

Homework is due at the beginning of class. Print it out and hand it in.
All assignment numbers come from the online version of the text.
They may be slightly different in the first and second printing (but they match the third printing).
Due DateLanguage (in DrScheme)Problems
11/21Intermediate Student w/lambdaWrite the function:

;; same-graph? : (graph X) (graph X) -> boolean
;; to determine g1 and g2 have the same nodes,
;; and each node in g1 has the same neighbors as that node in g2.
;; assume that both graphs have the same node equality function.
(define (same-graph? g1 g2) ...)

;; examples as tests
(same-graph? (make-graph '() (lambda (x) '()) symbol=?)
             (make-graph '() (lambda (x) '()) symbol=?))

(same-graph? (make-graph '(a) (lambda (x) '()) symbol=?)
             (make-graph '() (lambda (x) '()) symbol=?))

(same-graph? (make-graph '(a) (lambda (x) '()) symbol=?)
             (make-graph '(a) (lambda (x) '()) symbol=?))

(same-graph? (make-graph '(b) (lambda (x) '()) symbol=?)
             (make-graph '(a) (lambda (x) '()) symbol=?))

(same-graph? (make-graph '(a b) (lambda (x) '()) symbol=?)
             (make-graph '(b a) (lambda (x) '()) symbol=?))

(same-graph? (make-graph '(a b) 
                         (lambda (x)
                             [(symbol=? x 'a) '(b)] 
                             [(symbol=? x 'b) '()]))
             (make-graph '(a b) 
                         (lambda (x)
                             [(symbol=? x 'b) '(a)] 
                             [(symbol=? x 'a) '()]))

(same-graph? (make-graph '(a b) 
                         (lambda (x)
                             [(symbol=? x 'a) '(a b)] 
                             [(symbol=? x 'b) '()]))
             (make-graph '(a b) 
                         (lambda (x)
                             [(symbol=? x 'a) '(b a)] 
                             [(symbol=? x 'b) '()]))

Write the following two functions and use same-graph? to test them.

;; reverse-edge-graph : (graph X) -> (graph X)
;; to build a graph with the same nodes as g, but with reversed edges.
;; that is, if g has an edge from a to b then the result graph will have an edge from b to a.
(define (reverse-edge-graph g) ...)

;; undirected? : (graph X) -> boolean
;; to determine if each edge in g has a matching edge going the opposite direction
(define (undirected? g) ...)

Write the following functions using an accumulator.

;; posn-sum : (listof posn) -> posn
;; compute a posn whose x coordinate is the sum of the x coordinates in ps
;; and whose y coordinates is the sum of the y coordinates in ps
(define (posn-sum ps) ...)

;; digits->num : (listof digit) -> number
;; to compute the number represented by the list of digits
(define (digits->num ds) ...)

;; examples as tests:
(digits->num (list 1 2 3))
(digits->num empty)

Using this data definition for a family tree, define the function below using an accumulator.
;; a family-tree is either:
;; - empty
;; - (make-node symbol family-tree family-tree)
(define-struct node (name mom dad))

;; second? : family-tree -> boolean
;; to determine if any child has the same name as an ancestor of theirs.
(define (second? ft) ...)
11/18Intermediate Student w/lambdaRevisit the function reverse from earlier in class. It takes a list of numbers and returns the same list, but in the reverse order. Write it out (following the design recipe as you did before.)

This function suffers from the same flaw as the food-chain function in lecture. Rewrite it using an accumulator to fix the problem. Re-use your tests from above to make sure it still is right.

Write the product function using an accumulator (it takes a list of numbers and returns their product).
11/16Intermediate Student w/lambdaImplement find-paths.

; a (graph X) is:
; (make-graph (listof X) (X -> (listof X) (X X -> boolean))
(define-struct graph (nodes neighbors node-equal?))

; find-paths : (graph X) X X -> (listof (listof X))
; to find all of the paths in the graph from src to dest
(define (find-paths graph src dest) ...)
11/14Intermediate Student w/lambdaHtDP: 25.2.2, 25.2.3, 25.2.4, 25.2.6
For 25.2.3, use (time ...) to determine what the cutoff should be before switching from quick-sort to sort. For example, (time (quick-sort (forge-list 100 (lambda (x) (random 1000))))) tells you how long quick-sort takes to sort a list of 100 random numbers.
11/11Intermediate Student w/lambdaWrite the following functions. You may not use +, * or expt.
;; add : nat nat -> nat
;; to add the two nats together

;; mul : nat nat -> nat
;; to multiply the two nats together

;; pow : nat nat -> nat
;; to compute x to the n-th power
(define (pow x n) ...)

;; forge-list : nat (nat -> X) -> (listof X)
;; to forge a list of length N where the
;; last element is (f 0), the second to last is (f 1), etc
(define (forge-list n f) ...)

;; examples as tests
(forge-list 4 (lambda (x) x))
(list 3 2 1 0)

;; triangular-list : nat -> (listof (listof 'x))
;; to build a triangular list of lists of the symbol 'x
(define (triangular-list i) ...)

;; examples as tests
(triangular-list 4)
(list (list 'x) (list 'x 'x) (list 'x 'x 'x) (list 'x 'x 'x 'x))
11/9Intermediate Student w/lambdaa) Hand evaluate: (show all steps)

(define mul (lambda (x) (lambda (y) (* x y))))
(define m3 (mul 3))
(+ (m3 3) (m3 4))

b) Hand evaluate: (show only recursive calls)

(map (lambda (x) (expt x 3)) (list 1 2 3))

b) Hand evaluate: (show only recursive calls)

(filter (lambda (x) (zero? (modulo x 3))) (list 5 6 7))

If you don't know what some of the primitives above do, try them out in the interactions window.
11/7Intermediate StudentDo not write any recursive functions for this homework.
map, filter, and foldr are built in to DrScheme.

Use map to write the next function.
;; build-straight-line : num (listof num) -> (listof posn)
;; returns a list of posns where the X coordinate is n and 
;; the Y coordinate is a number
;; in lon
;; e.g., (build-straight-line 2 (list 1 2 3)) 
;;       (list (make-posn 2 1) (make-posn 2 2) (make-posn 2 3))
(define (build-straight-line n lon) ...)

Use filter to write the next function.
;; pts-north : posn (listof posn) -> (listof posn)
;; returns the posns from lop that are north of p,
;; that is, whose y coordinate is greater than p's y coordinate
(define (pts-north p lop) ...)

Use foldr to write the next function.
;; total-width : (listof image) -> num
;; returns the sum of the widths of all images in loi
(define (total-width loi) ...)

Use map filter and foldr to write the next four functions.

The next exercises use functions to represent curves in the plane. A curve can be represented as a function that accepts an x coordinate and returns a y coordinate. For example, the straight line through the origin can be represented as
(define (diagonal x) x)
and a parabola sitting on the origin can be represented as
(define (parabola x) (* x x))
(define points (list (make-posn 1 0) (make-posn 1 1) (make-posn 2 2)))

;; points-on-line : (num -> num) (listof posn) -> (listof posn)
;; return the points in pts that are on the curve described by f
;; e.g.
;; (points-on-line diagonal points) 'shouldbe (list (make-posn 1 1) (make-posn 2 2))
;; (points-on-line parabola points) 'shouldbe (list (make-posn 1 1))
(define (points-on-line f pts) ...)

;; positions: (num -> num) (listof num) -> (listof posn)
;; returns a list of positions on the curve `f' whose x-coordinates
;; are in lon
;; e.g., (positions parabola (list 1 2 3)) 
;;       (list (make-posn 1 1) (make-posn 2 4) (make-posn 3 9))
(define (positions f lon) ...)

;; flatten-posns : (listof posn) -> (listof num)
;; constructs the list consisting of all the X and Y coordinates of each
;; of the posns in lop, in order.
;; e.g., (flatten-posns points) 'shouldbe (list 1 0 1 1 2 2)
(define (flatten-posns lop) ...)

;; possible-y-coords : (listof (num -> num)) num -> (listof num)
;; given a list of lines lof and an x-coordinate, returns the list
;; of what y-coordinate is associated with that x-coordinate in each curve
;; e.g. (possible-y-coords (list diagonal parabola) 7)
;;      (list 7 49)
(define (possible-y-coords lof x) ...)
11/4Intermediate StudentWrite best-image:

; best-image : (image image -> boolean) non-empty-list-of-images -> image
; to find the best image in a non-empty list of images,
; where pred indicates if one image is better than another
(define (best-image pred a-neloi) ...)

Use best-image to re-define the three functions that were due on 10/31.
11/2Intermediate StudentHtDP: 15.1.2, 15.1.3, and 15.1.4
10/31Intermediate StudentFor this assignment, you must not duplicate any recursive calls,
and if you write any helper functions, enclose them in a local.

Consider the data definition and template for non-empty list of images:
; a non-empty-list-of-images is either
; - (cons image empty)
; - (cons image non-empty-list-of-images)

;; neloi-template : non-empty-list-of-imges -> ???
(define (neloi-template a-neloi)
    [(empty? (rest a-neloi)) ... (first a-neloi) ...]
    [else ... (first a-neloi) ...
          ... (neloi-template (rest a-neloi)) ...]))

; narrowest-image : non-empty-list-of-images -> image
; to find the image with the smallest width

; biggest-image : non-empty-list-of-images -> image
; to find the image with the largest area

; darkest-image : non-empty-list-of-images -> image
; to find the image with the lowest average color component
; (considering all three color components in each color)
10/28Beginning Student w/List AbbreviationsWrite the functions:
; sum-pairs : list-of-numbers list-of-numbers -> list-of-numbers
; produces a list of the pairwise sums of the numbers in alon1 and alon2
(define (sum-pairs a-lon1 alon2) ...)

; examples as tests
(sum-pairs empty empty) = empty
(sum-pairs (list 1 3 5) (list 9 25 2000)) = (list 10 28 2005)

; all-in : list-of-numbers list-of-numbers -> boolean
; determines if all of the numbers in alon1 are in alon2
(define (all-in alon1 alon2) ...)

; examples as tests
(all-in empty empty) = true
(all-in (list 1) empty) = false
(all-in empty (list 1)) = true
(all-in (list 1) (list 3 1 4)) = true
(all-in (list 3 1 4) (list 3)) = false
10/24Beginning Student w/List AbbreviationsWrite the following functions.

;; above : image image -> image
;; to put one image above another
;; HINT: use put-pinhole to move the pinhole of
;;       the first to the middle of the bottom edge
;;       and the second to the middle of the top edge
(define (above i1 i2) ...)

;; a lego is
;; - (make-lego symbol number)
(define-struct lego (color width))

;; lego->image : lego -> image
;; to render a lego brick. All legos are rectangular
;; and are 10 pixels tall
(define (lego->image l) ...)

;; a lego-building is either:
;; - lego
;; - (make-bigger lego lego-building lego-building)
(define-struct bigger (lego left right))

;; how-high : lego-building -> number
;; to determine how high a lego building is, in pixels
;; (reminder: each lego is ten pixels tall)
(define (how-high an-lb) ...)

;; find-colored-brick : lego-building color -> lego or false
;; to find any colored brick with the color `color' in an-lb
;; or return false if there are no such legos.
(define (find-colored-brick an-lb color) ...)

;; lb->image : lego-building -> image
;; to render a lego building into an image
(define (lb->image an-lb) ...)

;; Examples as tests
;; (make more tests yourself -- these should be a last tests!)

 (make-bigger (make-lego 'blue 100)
              (make-bigger (make-lego 'green 60)
                           (make-lego 'orange 40)
                           (make-lego 'purple 40))
              (make-bigger (make-lego 'pink 60)
                           (make-lego 'orange 40)
                           (make-lego 'purple 40))))

 (make-bigger (make-lego 'lightblue 80)
              (make-bigger (make-lego 'blue 40)
                           (make-bigger (make-lego 'green 20)
                                        (make-lego 'orange 10)
                                        (make-lego 'purple 10))
                           (make-bigger (make-lego 'pink 20)
                                        (make-lego 'orange 10)
                                        (make-lego 'purple 10)))
              (make-bigger (make-lego 'salmon 40)
                           (make-bigger (make-lego 'green 20)
                                        (make-lego 'orange 10)
                                        (make-lego 'purple 10))
                           (make-bigger (make-lego 'pink 20)
                                        (make-lego 'orange 10)
                                        (make-lego 'purple 10)))))
10/21Beginning Student w/List AbbreviationsWrite the following functions.
; a ftn is either
; - 'unknown, or
; - (make-child symbol number symbol ftn ftn)
(define-struct child (name date eyes mom dad))

; 40-year-old-ancestor? : ftn -> boolean
; to determine if a 40-year-old ancestor is in a-ftn
(define (40-year-old-ancestor? a-ftn) ...)

; count : ftn -> number
; to count the number of people in a-ftn
(define (count a-ftn) ...)

; avg-age : ftn -> number
; to determine the average age in an-ftn
(define (avg-age a-ftn) ...)
Hint: use helper functions
10/19Beginning Student w/List AbbreviationsUse the web-itunes teachpack for this exercise.

;; render-albums : list-of-album -> html
;; build a web page like we did in class, but include
;; all of the songs with each album, in a table inside a table.
(define (render-albums an-loa) ...)

Use this expression
(save-web-page "index.html" "Robby's Music" robbys-itunes)
to test your functions on some large inputs.
Hint: only do this when you have tested all of your functions carefully with small inputs!
10/17Beginning Student; sq-nums : list-of-numbers -> list-of-numbers
; to square each element in alon
(define (sq-nums alon) ...)

; rev : list-of-numbers -> list-of-numbers
; to reverse the elements in alon
(define (rev alon) ...)
Hint: break down complex tasks into smaller ones. Wishlists!

Images: 4.1 - 4.3
10/14Beginning StudentWrite the following functions. Don't forget about re-use and helper functions (the functions we wrote in class are fair game for re-use as helper functions).
; a list-of-symbols is either
; - empty, or
; - (cons symbol list-of-symbols)

; contains-doll? : list-of-symbols -> boolean
; to determine if 'doll appears in alos
(define (contains-doll? alos) ...)

; a list-of-numbers is either
; - empty, or
; - (cons number list-of-numbers)

; len : list-of-numbers -> number
; to determine the number of elements in alon
(define (len alon) ...)

; avg : list-of-numbers -> number
; to determine the average of the elements in alon
(define (avg alon) ...)
10/12Beginning StudentHtDP: 7.2.2 (make sure all vehicles have wheels)

Develop the function toll : vehicle -> number. It determines the amount a vehicle must pay at a toll. The toll costs $0.50 per wheel.

Extend the animal data definition from class with one new kind of animal. Make sure the new animal has a weight.

Write a template for the extended animal data definition.

Write the function diet : animal -> animal. It accepts an animal and returns the same animal, but with half of the weight.
10/10Beginning StudentWrite the function direct-to-0 : posn -> number that determines how far a posn is from the origin, as the crow flies.

Write the function downtown-to-0 : posn -> number that determines how far a posn is from the origin, if the coordinates were block numbers in downtown Chicago. That is, you cannot cut through buildings and have to walk on streets (this is commonly called "Manhattan" distance, but we know better).

Write the function direct-between : posn posn -> number that determines the distance between two points, as the crow flies. (Hint: wishlists & reuse!)

Images: 3.1 - 3.2
10/7Beginning StudentImages: 2.1 - 2.3
10/5Beginning StudentHtDP: 2.2.5
Images: 1.1 - 1.5