Assignment 4 Question 1

Assignment 4 Question 1 - ) (define (my-cons? mlst) )...

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

View Full Document Right Arrow Icon
#lang scheme (provide my-cons my-first my-rest mlist-empty mlist-empty? my-cons? set-first! set- rest! print-mlist) (define-struct mt ()) (define mlist-empty (make-mt)) (define-struct kons (fbox rbox) #:transparent) (define (mlist-empty? mlst)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ) (define (my-cons? mlst) ) (define (my-cons v mlst) ) (define (my-first mlst) ) (define (my-rest mlst) ) (define (set-first! mlst v) ) (define (set-rest! mlst1 mlst2) ) (define (print-mlist mlst) )...
View Full Document

This note was uploaded on 10/21/2010 for the course CS 136 taught by Professor Becker during the Fall '08 term at Waterloo.

Ask a homework question - tutors are online