;; 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
This is the end of the preview. Sign up
access the rest of the document.