SICP問題3.21

queueの表現(教科書で定義)

(define (front-ptr queue) (car queue))
(define (rear-ptr queue) (cdr queue))
(define (set-front-ptr! queue item) (set-car! queue item))
(define (set-rear-ptr! queue item) (set-cdr! queue item))
(define (empty-queue? queue) (null? (front-ptr queue)))
(define (make-queue) (cons '() '()))
(define (front-queue queue)
  (if (empty-queue? queue)
      (error "FRONT called with an empty queue" queue)
      (car (front-ptr queue))))
(define (insert-queue! queue item)
  (let ((new-pair (cons item '())))
    (cond ((empty-queue? queue)
           (set-front-ptr! queue new-pair)
           (set-rear-ptr! queue new-pair)
           queue)
          (else
           (set-cdr! (rear-ptr queue) new-pair)
           (set-rear-ptr! queue new-pair)
           queue))))
(define (delete-queue! queue)
  (cond ((empty-queue? queue)
         (error "DELETE! called with an empty queue" queue))
        (else
         (set-front-ptr! queue (cdr (front-ptr queue)))
         queue)))

解釈系の応答ではキューの実体であるfront-ptrだけでなく, キューの末尾を指すrear-ptrも含めて対でが印字されているため、Ben Bitdidddleのような印字結果となる。
これを解消するキューの中の項目の並びを印字する手続きprint-queue手続き

(define (print-queue queue)
  (front-ptr queue))

テスト

(define q1 (make-queue))
; q1
q1
; (())
(print-queue q1)
; ()
(insert-queue! q1 'a)
; (#0=(a) . #0#)
(display q1)
; ((a) a)#<undef>
(print-queue q1)
; (a)
(insert-queue! q1 'b)
; ((a . #0=(b)) . #0#)
(display q1)
; ((a b) b)#<undef>
(print-queue q1)
; (a b)
(delete-queue! q1)
; (#0=(b) . #0#)
(display q1)
; ((b) b)#<undef>
(front-ptr q1)
; (b)
(delete-queue! q1)
; (() b)
(display q1)
; (() b)#<undef>
(front-ptr q1)
; ()

OK