starter defs for class

starter defs for class - ; The first three lines of this...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
;; The first three lines of this file were inserted by DrScheme. They record metadata ;; about the language level of this file in a form that our tools can easily process. #reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname dectrees- start) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #8(#t constructor repeating-decimal #f #t none #f ()))) ;; a list[person] is ;; - empty, or ;; - (cons person list[person]) ;; a person is (make-person string number list[person]) (define-struct person (name year kids)) (define tree1 (make-person "Susan" 1960 (list (make-person "Joe" 1982 empty) (make-person "Helen" 1982
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.
Ask a homework question - tutors are online