1 ;; Exercise 3.22. Instead of representing a queue as a pair of pointers, we can build a queue as a procedure with local state. The local state will consist of pointers to the beginning and the end of an ordinary list. Thus, the make-queue procedure will have the form
6 (define (set-front-ptr! item)
8 (define (set-rear-ptr! item)
11 (cond ((eq? m 'front-ptr) front-ptr)
12 ((eq? m 'rear-ptr) rear-ptr)
13 ((eq? m 'set-front-ptr!) set-front-ptr!)
14 ((eq? m 'set-rear-ptr!) set-rear-ptr!)))
17 ;; Complete the definition of make-queue andprovide implementations of the queue operations using this representation.
20 (define (test-case actual expected)
25 (display "Expected: ")
29 ;; the four basic accessor/setter methods
31 (define (front-ptr queue) (queue 'front-ptr))
32 (define (rear-ptr queue) (queue 'rear-ptr))
33 (define (set-front-ptr! queue item)
34 ((queue 'set-front-ptr!) item))
35 (define (set-rear-ptr! queue item)
36 ((queue 'set-rear-ptr!) item))
38 ;; the rest remain untouched
40 (define (empty-queue? queue) (null? (front-ptr queue)))
41 (define (front-queue queue)
42 (if (empty-queue? queue)
43 (error "FRONT called with an empty queue" queue)
44 (car (front-ptr queue))))
45 (define (insert-queue! queue item)
46 (let ((new-pair (cons item '())))
47 (cond ((empty-queue? queue)
48 (set-front-ptr! queue new-pair)
49 (set-rear-ptr! queue new-pair)
52 (set-cdr! (rear-ptr queue) new-pair)
53 (set-rear-ptr! queue new-pair)
55 (define (delete-queue! queue)
56 (cond ((empty-queue? queue)
57 (error "DELETE! called with an empty queue" queue))
59 (set-front-ptr! queue (cdr (front-ptr queue)))
64 ;; Define a procedure print-queue that takes a queue as input and prints the sequence of items in the queue.
66 (define (print-queue queue)
69 (display (front-ptr queue))
73 (define q (make-queue))
75 (test-case (print-queue q) '(a))
77 (test-case (print-queue q) '(a b))
79 (test-case (print-queue q) '(a b c))
81 (test-case (print-queue q) '(a b c d))
83 (test-case (print-queue q) '(a b c d e))
85 (test-case (print-queue q) '(b c d e))
87 (test-case (print-queue q) '(c d e))
90 ;; (define (empty-queue?)
92 ;; (define (set-front-ptr! item)
93 ;; (cond ((empty-queue?)
94 ;; (set! front-ptr item)
95 ;; (set! rear-ptr item))